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Britain's Best Buy For The Sinclair user 



Over 130 pages of information 
and programs for the ZX 
spectrum, 2X81 and ZX80 

Attention super- sleu"~ 
can vou solve the my 
of OODUNNIT? 



Take your 



Netherwallop 
Coif course 

Battle of the 
giants - 



chess and 
superchess 
3.0 in a fight 
to the 








DURELL 

al Support from 
1 Helicopters) 




1 now from most 
retail outlets 

COMMODORE 64 
SPECTRUM 48k 

Available soon 

ORIC - BBC 
AMSTRAD 



Br- 



.L sales dept.. 

Lodge, Castle Green/Taunton, Somerset.TAI 4AB 



THE FASTEST WAY TO GET THE 
BEST PROGRAMS 



>Y WE GET YOUE 



tirnanog 
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EUREKA! 
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SYSTEM 15000 """"""" 
COMPLETE MACHINE CODE 



NEW! NEW! NEW! NEW! 

A I )>»■> .time, w e In ire lull reef ivEd the iollowing programs which look ijrr n : 

No reviews yet but they're ill in stock. 

ZAXXON (US Gold) £7.95 
VALKYRIE 17 (Ramjam) £10.00 
GHOSTBUSTERS (Activision) £10.00 
DOOMD ARK'S REVENGE (Beyond) £9.95 
KNIGHT LORE (Ultimate) £9.95 
RUNES OF ZENDOS (Dorcas) £7.95 
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WELCOME 



On The Other Hand 




contributions 



than to ou. own readers. If, i ^ 
when reading through the \ 
magazine you ihink you can 1 

thenlet'shearfromyou. W 

All contributions are, of -s^ ^ 

petitfve rates. So H yc^ve^'o't " "j 

yojr aye on a new ZX add-on or M 

you'd just like to supplement # 

h is vital. I hough, that all the pro- W 

grams you send us are totally,/^-- 
















a regular column in ZX Com- 
















Anv 




































But still, the time has corneas 


ILL, The Prince, Alien and 1 
several others didn't get review- 


clever 




£5 


book published by Melbourne 
House on Micronet 800 and the 
Spectrum and the VTX 5000 by 
Alan Giles, well worth looking 




rapla cements, and many have 


Progi 


m listings are 




has increasingly irritated me is 
he service (?) provided by the 


this fast turnover market often 


ongwl 


wha't^doTsa'nd 


Zx 


Special thanks for M /Boxes 
sent by Mr. A. La Delta, Mrs. 


Now people in glass houses 


The latest example is the the user 


"am is RUM la s 


rmn 


Weston, Anne Younger, and 


claim 'that' iVfKTflt? 




ump is 


e P ctl! When subm 


tting 


my behalf! 


Goodness Knows there are ar- 
ors enough in ZX Computing 


an article 1 onTfcun" and some £ 




r"to 


introducing 


eliminate them, the occasional 


Opus sent theirs along five 


ram as 


2&> «to cuec 


'th« 


The last issue featured Spec- 
trum arcade reviews by David 


mar and printing problem. But 1 
am aware of them and 1 try to 

ng for perfection. 

The excellent DK'Tronics 
club newsletter arrived the other 


are sitting here waiting, taking 


roaram 


before publication 




author and his Interface book on 


yet" 




fe \Y / 




3Ss£fflS5££ 






























quoted in it. It made me take 






M\ 


*N 




lengthy association. 


much has gone astray. 


praise (!) Therefore, to the sup- 




\ % 


• J\ 




apologise to all those with pro- 


BBt few months four items from 


apoloqise. 1 would also add that 

at the public level, our local PO 




i% 


*\ 




yiiin Mild to Clyde Bish who 














Melbourne House, Automata, 










quired about it as il would have 




sion of a CPU there appears to 










reached us. 


























r^ht^Tying'^gtf.om 9 


to augment the two built-in to 
the QL. Page 2 of the Introduc- 
tion to my QL Users' Guide 


Slogo no-go!' 








understand. nq ir r .r .-.|:.-- rl v Tin* 
simple ZX81 machine can be 


stales "ZX Mic rod rives are not 










suitable for use with the QL", 


following eomFinrii;-,Li-ik:^ 








built up piugi.-;.MV.:ly wh'i 


the computing press {sorry, 


although by this time no do 








software II- II 


forgotten where), that Spec 


ters on the same subject. 








The ZXBl' is Still the 












was able to FORMAT and SAVE 










market and no other company 


drives. Such files are LOADable 


SSE 








The ZX81 will still provide 


have'now been using the QL 
with two extra ZX fvlicrodrives 


found thatlstillhadahug in 










JB&jLirud -.vh.-.'l lh,.:din:r.l;i 








Yours faithfully 
A.fi. PARKINS. 




travel was between RT 90 










RT 1 80. 1 eventually traced 
to line 1420 which is p;,io 


.';■ 


and '-enter-' routm 


?»£*%, 




To connect them, I unplugg- 


1,'TAiWI-q). However therei 


gn 


timed on the aocv 


,-Z c 




Spectrum's Interface 1, and 




;■ 






QL Micro drives 


plugged ihis into the Microdrive 


occurs in line 142b" with 










expansion port of the QL. The 


command RT 90 FD 200 






(10 merely 


Dear Sir, 




any distance off the sere 








Sinclair Research have been 
much criticised in the past for 


with the slots facing away From 
you. Perhaps this i=. why S.-K.ki > 


wh nndicates clearly the r 

in lining rl-. n-jipmcil mi ,i 'l 


u" 




'^■o'Vne 
















compat.niliiy exclusive to QLs 


values ofOand infinity. 








pleased to say thai this trend 


fitted with "dongles" II have 


TI.«u>,eof lANqiiofcouiit 




ire assuming that 






QDOS version PMiii::-?l do hope 






ft fltdoosn'tthai 






some of you will try this with 


Pythagoras! as anyone lam 










later QLs and let us know. Don't 










tie/are Sinclair have launched it 
















If the variables xf and 


vl 








right sometimes! 






1 600 i»n er nines t 






Yours faithfully 


-andyriircciionsi.'irri^punr 


"0 


aioig vv line of : 


%&£> 


slot designated for Microdnves 


C.C. Wilton-Davies) 


to 3 distance along the direc 


on 


drawn line to exee 



WELCOME 



14.20 



t- [X 



<QSha GP550A 



14.30 GO 5UB 3120 

14.4.0 LET a»a-al: LET y = 

K= < 4-255* (IxftK! (0M 
1450 RETURN 
1500 REM **_« wrap ** 

(y +y f ) >175l 
1520 LET il^fflDl/Sf): 

t tyi/y f] 

1530 GO SUB 3120 

1540 LET aea-al: LET x = 

y = (0 + 175 * (<yf+y) (0)1 
1550 RETURN 

1630 REM ** x and/or y 

1510 LeT f ?^2ss?* t lx + xfl 

1620 let y i = -y *< fy +-y f J < 
a) * ( ly+yf) >175J % 

1630 LET " 

x =a *RSS 

1640 IF 
1550 IF ■ 

3000 REM ** forward ** 

3020 GO 5UB 1200: IF e 

RETURN 

3030 IF ti 

GO SUB 111 

364-0 LET q=dir«PI^180 
3050 LET x f = INT_ t.5+a#SIN 

-=INT 
3060 IF 
FIND '■■ 



edge, problen 

>F r/m suppliers, 



MM5290N-2, BUT: 



ay=ai-HB5 (yl/yH 



r t =0 THEN LET 



* (25S- 
( (175- 
LET 



LE 



*co5 q) 

<=255 AND (Xf* 

17s and tyf+yi 

THEN LET Xl=x f : LET « 1-!* * ' 
B 3120: LET X =X +X 1 : LET ! 
RETURN ___ __ ,„. 

3070 IF ((Xf+Xl>355 OR txf 
RND (yf+yl< = 175 OND (yfttf 
HEN GO SUB 1400 __ 
30B0 IF (x(+x> 4=255 BHD (X 

rnd ((yf+yin?5 or iyf+y 

JEN GO SUB 15B0 . 

3090 IF l(Xf+X>>255 OR (Xf 

RND (tyf+yj>l75 OR (yf+yl 

EN GO SUB 1600 

3100 GO TO 3050 

3120 IF PP = 1 THEN PLOT X,y 

3130° IF PP=0 THEN PLOT INUEBSE 

; ouer i;x,y: drru inverse i; ou 

ER l;xl,yl 

3140 LET t=B; RETURN 



S, helpful*- 
n by DUG is wi 



loss of memory 

Dear 5". 

about'- ■ '•■'l-'i s Odw 



a =y +y l - 



0) TH 



DRRU 



H'M ; ja90N-2 v 



related with the 41 16-2 it se 
MM5290N-2 in Spain, UK.G 



in Cum 
talepho 


e to enquire a 


SE" 


irsifi 



A Tasword tale 



eikostia ana 
I nuiSib !*■•:■ 
to hutn 0R5 



Wcl ^ 


fit 



FEBRUARY /MARCH 1: 



■■■ ;;om : 


in a IC socket nex 


expensive 




arlridge FOM Is It 




■: . 


et near the back o 
and the printer 


Smc-rciy 


.|.,1 ■'=.:■)■■ i 


Bit REMEMBER - 


USA 



The main ROM is 



ittongly recommend T/S USerS CrOUP 
Dear ZX Computing, 



ii was nol bought in Spain 



ROM out and put in the Spec- 
trum ROM. It is very important 
10 note on the TS2068 ROM 



There will also b< 



SPECTRUM COMPUTER. 



BASIC Oil COTOS 



■ p !>l iIk: Spi.K.:in:m ROM. The softwars companies which 

:trum ROM must be put in have compatible software tor 

at the notch faces the same these excellent computers 

as tneonp or- IhKLhip taken please get in touch with us? 

i.e. to the back of the Also, any book publishes of 



knowledge about Sincl, 



F. Javier Escriban 
Fd's Replay: I car 



Recently. I ,:nnu..:r:i!(l by Ti 
TS 20BB computer into a 
Spectrum. This infun'i^iun 
be very useful to your Amei 



although BASIC yjiirji 



1000 GOTO VAL ",0200, 
0300. 0400, 0500. etc" 
(A* 5-3 TO a 51 



- •■,]:„■ iii-:.|, us ill mil I 



engineering. THIS OPERATION 
SHOULD BE DONE WITH THE 
POWER OFF!!! 



following In/Out loca 



Lost for words 

Dear Sirs, 



.andthecomt 
t. Therefore, I 






id the Spectrum ROM 
i P.V. Tubes, 104 
AccringtonBB5 1EE. 



| :■■,-,. iliil.ile , 
Dei*. Perr.i 



NOTX-RAY-containsc 



inoljably nol used :«■, iln; Spec- / X 

TS 2068: 245,246 - sound I j 

loeaflena used for the modem ^— — -\ / 

and one for tho joysticks, but I V 

I can basically summarize by f *^j ^^^ 

programs for the Spectrum that I S \ 

M'iiiROM-.iilKworkl ■ni.lwuuld I ^ \ 

Kingdom power mains are 240 ^\ I "| 1 

volt50cyclosvstemandtheUS JL 1L- 

uses a 120 volt 60 cycle GJ> <-^> 




GENERAL NEWS 



SHOPTALK 

Some of the correspondence and 
rumours from the industry. 



ye and is rep- ington. 
;ompany's full for Sin 
sen TV, com- Ace 



'the game 



personnel, including 
ison and Ian Hether- 
e company is working 

ling to Alison Maguire, 






cedsoftwarefor tl 



Ctiristensen & Son have t 
appointed as an exclu; 
f:iBinlxi;or :o sell Sinclair 
ducts to the Danish market 
terestingly this company 
following Sinclair's eiampls 

offering 

of softw 



Sinclair to market 
imagine Mega- 
games for the QL 

Sinclair Research Limited has 
acquired the rights to 
Bendersnatch - the first of the 



■I . C"Vl:^0|jlllM I.? 1 " 1 ^rl" 1 L'r ■ ■ :-, 



i for Imagine's 




GENERAL NEWS 




is thai they have an erratic 
unrelibale Kempston operatic 
mode and the way to check Ih 
would be to type in the (ollowir 
program with the Protocol 4 = 
tached to the Spectrum, i 



mended reading for a 



in 










Eidersoft 


isbea 


rtu! 


PO Box 54, Ihford, Ess 


x IG1 1 BR are 
information that 




illy recomrr 


nd them to anyone who 






irogramming. 




This com pan 1 


















478 129 


1* 








Hello and 


thanks 


oThe Sensible Shoes, no this i 


not an advert for 


Clarks, b 


nVagr 




llX'.H-pnae^hey'have 


d in Blackpool, 
rod u c es a record 
isplay and prints 




















i'i'ii g 


V.."i 


<W* 


world does well. Still the 
the best. 


a's always a first 








ined from Nigel Bernstein 


232 Hornby Rd. 


Blackpoc 


.Lanca 


shire 







SPECTRUM CAME [ 



Beach attack 

Mark Jacobs places the country's coastal 
defences in your hands while he retires 

to Kent. 



beach, Captain Editor is 
"We surrender" he cries 
ly Sergeant Reader is a 
and takes command of de 
(the Captain has degate 
pausing only to type m 1 
gram and cover the Ca 
yellow streak to pisve 
enemy from spoiling 
tion, he orders the first 


eady, 
.and, 


for whic 


hange points for am- 
by pressing "5" (your 

i you get 20 units of 

lan 1000 you get 30 


20 


REM *********************** 
^-GRAPHICS made. * 

* ******* *****.-* *###**** * 

BORDER 3: PAPER 5: INK 7: C 




p 


Hence il you miss any 


£0 


GO SUB 7000 
GO SUB 3000 

POKE 23561 ,255 


ther details from HQ 






i or to drop a grenade 

ever "3" is pressed, 
nes will be laid on the 

eyjumpoutoftheboat 
beach. There is appro*- 
a 40% chance of any 


ET f 


GO SUB 9.00.0 

LET i-j=l: LET Lp75: LET r-RN 
T n-4B! LET s-ii: LET l = .P: L 


that man in theCapta I si 
waving a white flag? 




Guidelines 

First type in lines7D00t 

graphics have loaded co 
and then type in the res 
program (when doing th 
printasquare -"a"irg 


7250 
ottrw 


imately 


2l=e; LET z2=0: LET z3=0: LET u= 
20: LET p=5 
= 5 LET * = 2EI 

100 PRINT AT IF.Xj INK Oi-a^C '■ 
: LET r=RND 

IIP IF INKEV*="0" AND p>-3 THEN 

120 F INKE¥*-"5" AND p> = 4 THEN 


ding letter). 

When playing the game you 


only ac 


ofThe a mines Se '" '^ 


LE 

130 
LE 
! J0 

son 

1T-0 


1=12: GO TO 300 


Variables 

r= RND 








1 =10: GO TO 300 
I c INKEY*=' , 3" THEN GO SUB 

IF INKE¥»="2" THEN GO SUB 


}: S£ 


Tl 






loP 

=0.0 


IP INKEYS="1" THEN GO SUB 


x = ship(19,x)| 


ositlon 






165 


IP XNKEY*="S" «ND s>50O THE 


h SHE 








170 


3 SUB 9S0 
FOR i=0 TO n: NEXT i 


k & m = various loop 








172 


IF q<l THEN GO TO 1500 



User Graphics 




G- 


iis= 




P,Q = 

T = 


KSffi" 




CUFF = 


DEORSSUHIH 


ERSJ 



210 IF c)-i THEN 


GO SUB 


700 


225 LET X=«-l 






230 IF n=13 THEN 


GO TO 


000 


250 GO TO 100 






300 BEEP .1,-10 







SPECTRUM CAME 



PINT AT 19 



EEP .07,-2: BEEP .13,4 

345 PRINT AT 19, y," " 
350 LET q=q-3: LET n-n 



THEN LET 5=5tZ5: 



RINT AT 20,1,-1 ; IN 



755 GO TO 391 




THEN 


BEEP 


.05 


20: 


S25 LET u=u-l 






12+1 


T 


(RN 


#81 


330 PRINT AT 20,21 INK 


2! "E 


HEN 


LET 


n 


-35 




S35 IF u<9 THEN GO TO 


1^30 


HLN 


LET 


" 


=30: 


LET 


340 LET k»k + 9 

345 IP -> = 14 THEN LET 


r-T 


HEN 


LET 


n 


"25 




S5P RETURN 





440 IF w>5 THEN LET n=I 
450 IF r>=.5 AND r-; = .6 TH! 

T ^=^+20: SEEP .2,0: EEEP 
455 IF ATTR li9,,.l=14 THE! 

NT at 19, ,;■ " : GO TO 95 
460 GO TO 100 
510 LET zl-INT <S+(5*r)> 
520 LET z2=INT lo'(7+rll 
530 LET i3 = INT l3+(lB*r-)) 



iC'OCi '"EN LET : 



SPECTRUM CAME 



15,0; INK 0i 



EEP .01,0 

1030 IF k=zl AND r > .5 ■ 

UP 1978! LET 21=0 

1040 IF k*Z2 AMD r< .6 ' 

UE 107C: LET z2=0 

1050 IF k-z3 AND r < . 3 - 

HEN GO SUE 1070: LET : 

1060 NEXT k 

1065 GO TO 95 

1070 PRINT AT 20, kl INI 

1030 BEEF .05, -5: LET 

1090 PRINT AT 20, kl " " 



I NK 7 I " 



1520 PRINT AT 10,10; INVERSE 1 \ 

FLASH li INK 5 "GAME OVER" 

1530 PRINT AT 15,16! INK 2;"AtidL 

her goTfy/n) " 

1540 IF INKEVS="y" THEN RUN 31 
ISIS IF INKEY1-T," THEN STOP 
1550 IF INKE'i*: ">"/" THEN GO TO 



4030 PRINT AT 20,5; INK 2; "PRESS 

' /' TO CONTINUE" 
4040 IF INKEY*="y" THEN CLS : G 
TO 4050 
4045 GO TO 4040 
4050 PRINT AT 2,1] INK Oi'Vour a 



4060 PR I 


IT AT 


5,3; 


NK 0! "Fire 1 


4062 PPI 




8,31 




4064 PPI 




10,3, 


INK 01 "Lay m 


4*66 PRT 


■IT AT 


12,3; 


INK .0; "Blow 










4063 PRI 


IT AT 




INK 0j "Drop 


bomb dOH 


i cl i 


t ... .25" 


4070 PR! 


IT AT 


17,1! 


INK 0[ "About 


1.0% of 


the s 


ips 3 


e SUppl/ 




ienti 


el to 


the rest) , 


and when 


these ai e 


it theammo g 










4080 PRI 


MT AT 


21,15 


INK 2[ "PRES 



3000 


FOR i=0 TO 5 STEP . 1 


3005 


PRINT AT 7.91 TMK INT i i "B 


ACH 


ATTACK" 


3010 


PRINT AT 10,61 INK 1) "By M 


RK JACOB 19S3" 


3020 


PRINT AT 17,1; INK 2;"Dd y 






^eze 


IF INKEV*="y" THEN GO TO 


0P0 




3033 




3035 


NEXT i 


3041 


IF I NKEY*= " " THEN GO TO 3 


4 000 


PRINT AT 2,1! INK 0i"The o 






40E1 IF INKEY*="y" THEM CLS : G 

TD 5000 

4085 GO TO 4031 

5000 PRINT AT 4,3i INK 0j"The ga 



3,11; INK 1J "GOOD 
7,2; INK 2] "PRESS 



504i 



HEN GO TO 



~000 FOR 1=63 TO 85 

■'0S5 PRINT AT 9,5! INK 0; "PLEASE 

WAIT A MOMENT" 
"010 FOR n=0 TO 7 
~-?20 READ ■■; POKE USR CHR* (i)t-n 



4010 PR IN 



7.030 NEXT n 

7040 NEXT i 

^050 DATA 0,0,0,1,255,127,63,31 

7060 DATA 4,142,127,213,255,255, 

255,255 

7070 DATA 0,0,192,240,255,255,25 



February™ arch 1985 



SPECTRUM CAME 



:"?<? DATA 252,254,25-1, 254,254,2 

, 252,248 

1EF0 DATA 8,j0,24,24,a,24,.a,2a 

LIB DATA 136,34,0,89,24,130,40 

IB 

120 DATA 243,248,240,240,240,2 

130 DATA 254,254,254,252,252,2 

, 252, 245 

140 DATA 248, 24B, 252, 252, 252, 2 

150 DATA 145,3^,143,43,76,37,1 

160 DATA 145,36, 14°, 58, 204, 1S1 

170 DATA 145, 2.6, 149,93,216, 36, 

,200 

188 DATA 16, B, 16, 6, 16, S, 16,0 

190 DATA 248,241,243,230,236,2 

, 240, 243 

200 DATA 0,0,192,227,255,255,2 

219 DATA 24,62,255,255,255,255 

220 DATA 248,252, 252.252. 252. 2 



230 DATA 240, 240, 24. 



7240 DATA 0, 170,0 

725.0 DATA 252,254 

2,249,243 

7260 CLS 

"■270 RETURN 

9000 PR IN 

9010 PRIN 

9020 PRIN 

9030 PRIN 

9040 PRIN 

9042 PRIM 

9044 PRIN 



0, 129, 34,0,2 



754,754, 252, 25 



i PRINT 



9041 



9052 PRIN 



20, 141 IN- 






" bS* IPECmi/l 



5 

p 



£Ji=T 

D aa» mm atoms ^~ 




Mfiomjrmr ygtn Ji - 7 /HI 



HIRE SPECTRUM 1 
SOFTWARE 


eluding ARCADE, ADVENTURE, BUS- 
■:■■■■: i-:i'-- FflEE 7f"i page catalogue. FREE 

OVER 300D tapes 1(1 slack, Witt up Id 60 

LOWEST PRICES - lure lip lo 3 tapes al a 

Lime, (ram 63p each for lira weeks hue 
(Plus cSp and VAT| European members 

Tipti tgf Ml< at DISCOUNT print, 

Telephone 01 -661 9240 (9am - 5pm| Dr 

rauppn ana JOIN TODAY - you've nplhing 




H:Wl*lllllll 


■ 011errng HALF-PRICE 
lift membership is Dnly 


60p (plus pjp and VAT) 


MMTIONM SOFTWARE LIBRARY 






m 



■ PROGRAMMING FEATURE! 



Light Screen 




(where "LSD_LOOP' 

ihe section MAIN_LOOP, 

DE,(CURSOR + 2)" should 
"LD BC.ICURSORh 21": 
lables -, CSR_DOWN" 



X COMPUTING FEBHUARV.'M 



■ PROGRAMMING FEATURE! 



hfi'i usu USR E6789 I 

nstate Liyhi Si.'rm.n Dtiiy 

COPY makes a copy t 



. FLASH and BRIGHT 

switched on (1 I and off 
.■i'i. :-l:..uv iliai FLASH 3 



BORDER changes tf 



icreen. OVER update 



functions ate on ihe same keys 
as in BASIC, except for BRIGHT, 
which is on the "CAPS SHIFT" 



iception of CLEAR, e 

iue's functions requirt 
□ INPUT something I 



cover addresses DF3 E to E0 1 B 
(see figure 2 1. We start off with 
a subroutine called LOCATE, 

which is used in STORE and 
RECALL, and then move onto a 
table, called COL_TABLE, 
which is used by the colour func- 
tions. In Part Sis of this series I'll 
get down to some geometry - 



■PROGRAMMING FEATURE! 



Ut 



FEBRJAHV.MAHCH 1 




3. 



NOW THERE ARE 

HI-RES PROGRAMS FOR — 
THE16KZX-81 



FORTY NINER 



In 1849 the Great Amesii-Fin Gold Ku-h ^^■K--.-. Almost everyone who could sold 

up everything and dashed to the west coast to look for this precious metal - 

including you! 

You must excavate this precious rui-tal hut can yen; survive the giant rats and 

that vicious Gremlin which will come to infest your mine' 1 Can you trick the 

snakes into leaving liieir eomliMinble n.'-s rind deslrov tlv rats ior you? Can you 

keep the Gremlin at bay? 

Rirhes await yrm but su do the hazards! 



ROCKET MAN 



Get rich quick by collectintj Dinnninds ihai are simply lying there waiting ior you! 
Oh.. . I forgot to mention that 'here are one or two problems! 
There is an expanse ol shark inlesied water between you and the Diamonds and 
a strange breed oi Bubble that seems hell bent on getting you in it! Somehow 

You have a Rocket Pack to help you (a Vulture on higher levels) bui you must 

rush around the platforms ;md ladders rollerting cans oi li.it:! (leys of lamb with 
the Vulture) and cursing thai weird Bubble. Once you have enough fuel then it's 
Chocks Away! 
Oh . . . but don't run out of fuel on the way - otherwise it's , . . SPLASH! 





Z-XTRICATOR 



A long time ago. in .:i yakm, 1 i.-rr. tar. away ;■■. terrible war rook place between two 
hostile races. Any prisoners taken eeuld not evpeet to live eery long in ihe hands 
of their captors. Their ■ink,' hope Lie with a en .up o! valiant warriors -the 
XTRICATORS - whose task It was to rescue fellow beings from the alien planet's 
surface. You are about tol ike nn the n ie of Such a warrior 



Please send me. 


QTY TOTAL AMOUNT 


FORTY NINER E5.95 






ROCKET MAN £5.95 






Z-XTRICATOR £5.95 








TOT 


AL 





Available from all good computer shops or s 
cheque/P.O. for £5.95 (inc. P&P) to: 
Software Farm, 

FREEPOST (No stamp required) (BS3658), 
BS8 2YY. 



j SOFTWARE REVIEW) 



1 981 European Micr 
.-■ Chess Champio 
■10 Superclass 3.0 



Cyrus is chess 
versus superchess 
3.0 



I 48K Spectrum. Both 



2 Cursor key 

3 Auto-demi 







s "" = """"*"" Br °"*™ 


grams'fnekT 


ie16Kandone 


4 It can be used as e 
chessboard by two humans. 

5 Take- beck f ecility. 


■ 


■ 
■ 






nl 


■ 


'Battle of 
the 

Giants 

Philip Crocker and 
Christopher Doran match 








Superchess 3.0 and 

Cyrus is Chess in a fight 

to the finish. 









D 










1 


■ 1 






Tm 



I SOFTWARE REVIEWl 



if opening moves. 



positional advantage to Cvrus . 



compared to Cyrus} opening 



1 Full library of chess 
openings. 

2 Change colour of bo: 



1 Ten plaving levels. 

2 Recommended move 
option. 

3 Change sides and level i 
play during game. 

4 Set upa position. 

5 Self- play option. 

6 Technical information 
(how the program works!. 
During the game 
Superchess gives itself a 
score dependent on 



example Cyrus's take-bad 
ty is a very useful featun 
h Superchess lucks. T"en 



Chess Ability 



Superchess came into its own. 
Its driving, delicate play forced 
zugzwang (the compulsion to 
make a move resulting in 

depleted Cyrus and quickly con- 



Example Game 

This game was between Cyrus 

Cyrus played on level 6 and 
Superchess played on level 3. 
The game was typical of the 



nted by N. 
sh, or an * If 
a piece. The 
I the piece 



However by playing outright 

material and decentralised its 
pieces it enabled Superchess to 
draw the game with some subtle 

Cyrus was rather a disap- 

described. Often it would play 
an excellent opening and mid- 
dlegame and then lose a "won" 
endgame. Sometimes on lower 



improve its position unhindered. 

Both packages have room for 

improvement. Superchess has 

fewer features than Cyrus and it 
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Cyrus Level 
Cyrus Level 

Superchess 


ill 


Cyrus Level 
Superchess 




Cyrus Level 



'S Chmss v Supe/Ghass p/ay aft. 



QN,KN : Q,K.QB and KB. 
Kingside castling is shown by 
0-0 and queenside castling by 
0-0-0. Check is shown by + 



CP SOFTWARE, DeptYC2 



good software shops. 

am 



7.BxN 
9!b-K3 



17.B-QB3 K-Rl 

18.0-0-0 P-OR4 

19.R-N4 P-R5 

20.R(0)N1 R-N8 

ZLRxBl RxR 

22.BxBP RIRJN1 

23.R-N5 P-QN3 

24.K-N1 P-KR3 

25.R-N4! K-R2 

26.BxR RxR 



31.K-K3 P-R4 

32.P-R4 K-N3 

33.P-Q4 K-82 

34.P-Q5 PxP 

35.PxP K-K2 



K-85 

O.K-Q2 K«P 

1 .K-03 K-B4 

2.K-B3 P-N5 + 

3. K-03 P-N6 

4.PxP P-R7 

5.K-B2 P-RSlQi 

6.K-Q3 Q-Q5 + 

7.K-B2 K-N5 



™ fl@E era Bin 




■ Infra Red transmission - so there are no leads trailing 
across the living room. Just sit back in your chair up to 
30 feet from your machine. 
M Touch control -no moving parts, extremely fast, long life. 

a software required. 
U Can be used with all Cheetah RA T/Kempston compatible 
software. 

■ Fits comfortably in your hand for long play periods. 

■ Comes complete with receiver/interface unit which simply 
plugs into the rear of your Spectru 

I Compatible with all Sinclair/Cheetah peripherals via the 
rear edge connector. 

Simply incredible at £29.95 including VAT and p& p. 

Dealer enquiries welcome. Export orders at no extra cost. 

Send cheque/p.o now to: 
Cheetah Marketing Ltd. (Dept. ZX), 24 Bay Street, London EC1R3DJ. phone 01833 4909 
Cheetah products are also available from branches of 
• WHSMITH 4> Rumbelows 
and all good computer shops. I (TLaotrtU ■■ 
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^^Extend your 16k 
Spectrum to 48k for 
just£27-00. 

And get a Free 
program worth£4-50 
into the 
bargain. 




The SP4S [its Issue 2 mi Issue 3 Sped 

IIm-SI'-I^.-.l.,. ,.■.,„., I. II «.:,i, aniL-.-iin: 



TRADE ENQUIRIES 



48/80 FORTH 






i thai 48/ SO FORTH 



EAST LONDON 



MEETIBS 



■SOFTWARE REVIEWS^ 






Spectrum lessons 



This issue, Mike Edmunds devotes his 
attention to Scisoft Educational 
Software, and offers us his views 




■SOFTWARE REVIEWS^ 



jpwi 


mtpm^pf 
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NfptfA 


ttdtittttttjlt 


JOOOOUOOO 


l><iOO>)l><iO<K 
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tions. 'Angle' requires the pupil 


decidely tourist type, but even 


range. There are seven pro- 


they are essentially the same 


to estimate a drawn angle. The 






format. Both the Chemistry and 




facility provides an English 




Physics packs come complete 


simplified version of Vu-3D and 


translation of the required word 






as such will aid the design of dif- 








ferent glass shapes and allow 


translation at the end for check- 






them to be manipulated through 


ing. The beauty of this program 




revision programme. Both pro- 








grams have problem sections 


frameworks are of the 'wire' 




text although clear diagrams are 




type but are very effective. 


a crowded classroom. It isclaim- 






There is an option to change the 


















actually appear to be JUST that, 




upon equations and definitions 


BUG which spoils an otherwise 


there is the opportunity to put 


benefit for the target students. 




excellent program. (Note to 


the program to a much fuller use 


These would also be of interest 




Scisoft, change an AS in line 




to anyone wishing to go beyond 


Mechanics, Electricity, Heat, 


21 50!) 'Percentage' is an effec- 


'Alphabetical Order' requires 


the BASICS in this area! CES for 


Pressure, Light and Sound 


tive estimation program en- 


translation before sequencing, 


example gives a fairly clear in- 


whilst the Chemistry program 




and 'Encyclopedia' needs to 


troduction to machine code, and 








even 1 could follow with no 


Mass/Mole calculations, Gases, 


"That was a pretty wild 




trouble at all. There is also a revi- 


Metals, Elements, Ions and Elec- 


guess. , .", Overall thnrr'orr.n 


Geography is a less brain- 




trolysis problems. A review 




teas mj program and decidely 


cluded. . .more of which in a 




Maths 2(13 + 1 cn-sists of 






with such widely based pro- 


six mathematical proo/ams and 








a Revision section. This prog'm-i 


Bum-. Spread of disease in 
wco3.and and Countries. 


The Appliance 


suffice it to say that 1 would 


students who are expected to 


Treasu-e Hunt contains three 


Of . . . 










it not for the Revision 








sectionsl. . These, in my opi- 


include all aspects of 1-g -alios. 






nion spoil the whole package. 




gai-e s played on a choice of 


the standard of the other pro- 


Whilst the suggestions for pro- 


Pythagoras Theorei". "&(.*-■ 




grams! 'Bug' is intended to be an 




tage change, propo'tic-s and 


Old- -a -ce Survey symbols. This 


adveniuregarnefnrchildien. the 














games and successfully rein- 


within Mystery Mansion. This 




and within each program ran- 






is surely real enough for any stu- 








dent without having fail cer- 




plannng to achieve success, the 


American bug alive. Travelling 


tificates flashed onto the 






through the mansion you are 




indeed you are expected to find 








why you have made an error. At 






unnecessary, even if they ARE 




town. There are numerous op- 


in order to proceed. The 


deserved"Stop kidding 


to the program. Your attempts 


tions and it is up to the individual 


framework is fairly standard 


yourself, you are almost an adult 




to make the best use of available 




now!", "If this is the first time 








you have thought about revising 




short sections on place names 




then we suggest you try 


supply good examples and. 


and the estimation of distances 


flow smoothly. For example, in 






between cities. (This last see- 




In conclusion, the Revision 












the distance answers do not 




packages as being of con- 








siderable value, especially as ex- 


outlines all the necessary rules 


1 consulted!) Disease is a varia- 










immediately. A performance 




The triangle diagram here is 


cept that it details the spread of 




limitations imposed by ihe 


slightly suspect however! 


pressive of the programs in this 


although this program did not 
appeal to me it nevertheless is a 


nature of the program, makes 


intermediate Level 


the fx e cellent°DooklBts OU Bdd a an 




package and provides a com- 


different approach to Science. 




Moving away from Maths we 
come to Scisoft's Intermediate 


m*™S™ii'"o""«°lo'r" 


Jl , ™<'"'n'"E™°mfn b " e , B n°d 


sucrcomprlihensivrpackages 


level programs, the first of 


The database contains various 






which is German 9-1 3. This, in 




in their objective without being 




essence, is almost exactly like 


population etc. A wide range of 


really anything out of the 




'Star Reader', the main 








difference being that all the re- 


options, this set of programs is 


same style as Bug, the aim this 








time being the pollination of the 




is, of course, written in German! 


manual which also contains 


plant. Again this did not really 




An overlay is provided to give 




succeed for me. The answer 














The next program is Corn- 


what you want then try it first. 


from your Megagames into pro- 






The final two programs 1 in- 


viding pruyrams of equal quality 


admit that my German is 


pupils in the 13-19 years age 


tend to deal with together as 


for the Educational sector! 



r, 



PECTRUM DISK INTERFACE 

The Ultimate for the Spectrum owner! 



M*» 



ftta* 



ln\il\'il(;su|rii!ii lur ust; Willi 



yt|m«pa 









QffQUTTHISMUPQNftNDSSNDVOT 


MODE Oil 


,,,... 


TOEBTOTHE 


WTCREESABOVe 






PLEASE SENDME: 




TOTAL 


^Sj 


■^ s^F 






















: 




IssoiflETAnnivE ' 




:b W |j :ljk; 






--qrj i-.j.^i- -.!■--. ih ■■ i r,.-.iu*ng power 


?o°uS 
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Name 











<p 



iuii-i\UDi 




Skooldaz 


e - ^H 


the game 




haseveryt 


ing - ^H 


eicitemen 


, drama, ^j^B 


comedy, tragedy. ~^M 










with your t 


avourite 








r, the nutty profe 








iteold,too!)an 


forgetting 


he swot and the 


bully. 




Speech bu 


bbles, amazing 


animation 


great graphics. 







Skyranger - 


"^jf 




patrol the air 
skyscrapers and 










ke the city a safer 




1 P' 


ceto live. 3D like 




P befo 


a, showing what a 




Spectru 


n is really capable 
of with the right 






programmer. 
£5.95 

Wheelie- 


February the 


CRASH n 


agazine reviewers 


ought this w 






ever. At a ro 


ugh gues 


I'd say they were 
:ted to this game. 



All for the 48K Spectrum. 

Available from all good computer shops. 

or direct from : MICROSPHERE COMPUTER SERVICES LTD, 

72 Rosebery Road, London N10 2LA 



■ SPECTRUM REVIEWS)! 



Quicksort 

Clive Smith continues his quest and 
unveils another mixed bag of programs ="p" 
recently released 




Alpha-Beth by awf 


^^youturrtplnto'or^y" 


ti0 On loading the program 


you 


menrYouVen'go [o°a sub 


Written for the 48K Spectrum, 


lose one of your si« lives. 




the 




' 'Alpha-beth" is an educational/ 




type ol interface and prime 






a reads game which is designed 
tn make learning fun. 


lay said LOAD " " and i 


meno'youchooseThroplio 


JTto 


This is done by listing the 


Basically it's a quiz game but 










answering the questions is quite 


you are presented with a menL 
















to appear. So, <n=i vo.i wihjIitI 


You are shrunk down to the 


received about three pages ir 






probably start with test, so you 




halt a second. 






enter Kl . Then maybe a graph to 


little schoolgirl) and faced with a 


1 rang the company to ask 1 






follow, so enter G1. After the 


giant keyboard and VDU. The 






the 


graph perhaps a couple more 




















to follow that a histogram, enter 


them by leaping from key to key 










pressing the right letters to form 










your answer. Once you have 




select 'Mew data'. This £ 


yes 








you a range of format 




page can be used several times. 


have to make a mad dash (or the 


select which operating keys yoL 


choose from ie: Years, mo 






"Enter" key to seeif it's correct. 








;;ui rip* ie you have the option of 














There are several girls name 






i:idir.Nf!llv sij If fit in with speech. 




listed with scores of 1000 b\ 






If you choose the automatic 


schoolbully and an object which 


each one but not bemg able tc 


Once all your data has 


een 


option you can set the speed 



■SPECTRUM REVIEWS! 



hard copy If neede 

With the prese 
its name and that I 

DrsssnlaliuriS tO(J,.';h,\T :o 
One of the things thi 
graphics. However all 

or one of the painting prograr 




If you are taking your test in it. The Second tape I: 

shortly 1 can really recommend inc P&P and magazine. 



Therbo 
from Arcade 



Micro Arts 
from Micro Arts 



PO Bo* 537, 



The Highway code 
by Datek 



Now I'm always looking out for 


Zenji 

by Activision 


screen. At each end is a goal. 


L h sa U mething P t r ha a t 3 fa?ls tnto that 


computer's' 5 ^ *" ° ther " *" 


category. It's where art meats 




The ball is replaced by a f lam- 








Micro Arts is a forum organi- 




your goal. To slop it there are 


sation and will accept your pet 


like Spook, everything you do is 




p rejects for publication. They 




which fira little thingies across 








this mean you don't get paid?) 






1 was given two tapes to look 










You are playing against the 




separate pieces. The idea of the 




under the heading 'Animated 


game is to connect the pieces 


each others goal. When you 


Originals' 




have a go at the computers goal 


These animated originals are 




the computer fires thingies at 








move around the screen. The 


ing them around till they all con- 


To assist your cursor toward 


colour, timing and order can be 


nect. Doesn't sound much fun 






does It? 1 have to admit when 1 




1 have to truly admit 1 have 


first played the game 1 thought it 




seen better graphics before. I 


to be a load of rubbish 1 was 


ing your goal and you think you 










1 was trying to do it logically, 


press the rvlesmo button which 




so 1 tried again and went by my 


blows everything up. These can 




instinct and got on really well 


only be used three times though. 




(could this be the power of 


Added to this there are 


thought Picasso was a bit on the 


Zenji? |. 








be fired at you as they approach 


The second tape was also 








needed as you play this game 




of 6 different graphic displays 


against the clock. Points can be 




much the same as the first tape. 


gained whenever you make s 




One of the options I pressed 






gave me a graffiti type man so 


The first maze is small but as 


There are 13 keys to operate. 


what he does 1 dare not say. 


you progress the maze increases 


some which can be handled by a 


you'are chased about^smaM 


To tell you the truth I was not 


The first tape will set you 


flames which burn you up. 


impressed. The graphics are 



< £3.00 inc P&P and you Although a simple game I 

d get a magazine. There's found that I couldn't put It down 
' in of a good game. 



:e from Clive Sin, 



DODpntog 



rom your newsagent 
this is what you're in danger of missing 



— — - — ; ™.;f — nTTr"pxnprt?tell vou what to watch for 




S 



Free-to-enter competitions. 
Our readers have won prizes worth tens of thousands of pounds 



■-§■<:- 



On sale 

every 

tuesday 




'Calling all whizz 
my CLEVER CLOl 
games are the 
ulti mate challenge! 



These exciting games of skill and chance ate the 
eanbiasd work of teal life 'Clever Clogs' and their 
Inches to give you whizz kids the ultimate challenge 
in computer games that really make learning fun. 

Excitma graphics, a wide choice of 'difficulty' levels, 
plus supplementary knowledge packs for several 
gamos in the range make Clever Clogs Britain's best 
buy in early learning software 

Starting with 'Party Time' for Age 3+, the Clever Clogs 
range brings a new approach to learning for whizz kids 
of all ages. And if you join the Clever Clogs Club you'll 
automatically be eligible for many money-saving 
special offers. 



CLEVER CLOGS 

early learning games 

produced by 

ARGUS PRESS SOFTWARE 

1 Golden Square, London W1R 3AB 

Telephone: 01 437 0626 



(HARDWARE REVIEWE 



Thurnell Disc Drive 



An exciting machine looked at by the 
zxc team 



gram and "SAVE "USR" AND 
FN d|t LINE 1 0" and then press- 
had typed in! This was followed 
by the LIST ca 



epresenting 3.25 kilobytes of 
ERASE a 






nected to the mains. Upon 


disks, that the black button on 


cess disk files in 


isk BASIC and 












sold well, especially in Europe. 


"Spectrum disk BASIC" can be 


load from disk and is called the 






this was then followed with unit 




reset button, and that the com- 


But, sad to r 




MK2 and has now been super- 




mands in disk BASIC resemble 








The "Welcome" card, after 




SAVE sll those p 


rograms that 1 


likely to be the final version. 


explaining the above, suggests 


the addition of "AND FN d (I". 


have bought an 


take three to 


Chris explained, "We have 


the insertion of the demonstra- 




four minutes t 


LOAD from 




tion disk and pressing the black 


cake, 1 thought to myself, and 


cassette. Why 












our disposal, 


the feedback from customers to 








rieval of Infor- 


produce the machine that we 


options of playing Snakebyte. 


Auto Execution 


matic-n and pro 


rams, if they 


believe the market is looking for. 


learning about disk BASIC. 




can only be use 




The latest version uses no Spec- 


MERGing and zero memory for 




made" program 


? Do software 


trum memory whatever and is 


EXITing. 










The game Snakebyte allows 


after they have been loaded, by 


Tom. Dick and He 




reliability and 3O0K capacity" 




the addition of "LINE n" to the 








speed of access of the system, 


SAVE and LOAD statements. 


titles of cash on 


a disk drive in 




with four instruction screens 




order to copy 






and an offer to choose a level of 


toSAVEand LOAD pictures, but 


games and the 


ike? As most 


through it's paces, so over to 


difficulty preceding the games 


also given a five line picture pro- 


games players 


re children or 






gram to try. end - it worked. 


teenagers It 


would seem 




BASIC from the nine screens, 


just as the manual said that it 


unlikely. Havini 










games program i 




The Drives 


each added by pressing a key, is 


was the evidence in the form of 


to be able to put 










instant LOADing 






clear, well-designed and not too 




ing robbed the m 


nufacturersof 


an eye, the Thurnall Disk 




modification to the LOAD com- 






System will LOAD "Tasword 


LOAD and SAVE, and then how 


mand in order to load only Ihe 




find it a boonl 


Two" to enablB this reviewer to 


to save and load television pic- 


desired numbers by the inclu- 


Interestingly 


Thurnell ere 






sion of "DIM aln);" before the 


negotiating wit 




lengthy cassette LOADing 


end string arrays, and finally for 


normal DATA loading com- 






method enforces a coffee break. 


Code and how to reassign new 






rogram, which ^ 


It has a similarity to coffee in 


addresses. 


1 fairly sailed through strings, 






that its SAVing and LOADing 


1 was now eager to try my 


string arravs and code to arrive 






ate INSTANT. 








astarflle In disk 1 


The well-packed outfit con- 




structions on how to SAVE and 


versions if requir 






quick visit to my local computer 


LOAD my own startup program. 


The complet 






expert who, in double-quick 




£219.95 end is 






time, altered lines in "Tasword 


thinking that this was more like 


from Thurnell directly at the 


reference card. With power to 


2" to enable it to LOAD and 


it — really using the disk unit at 


moment. 
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ZX COMPUTING FEBHUAR 


(MARCH 19B5 Z 



COMPETITION 



Thurnell Disc Drive 
Competition 



Your chance to win a superb disc system 
for your Spectrum 



Be a proud owner of one of these 




A 


fast access 


The Rules 


range of professional add ons for 




r. 


good backup from 




ihe Spectrum which bring It in 






Thurnell 








u 




of ZX Computing, except 










employees of Argus Specialist 


All you have to do is study the 








Publications Ltd. Their printers 








good looks 




what "lou^onsidB? to' tetfie 






peripherals 


Thurnell Electronics, or anyone 








30 OK capacity d/sided 




Chris Brinsmead of Thurnell 








• As long as the correct 
















































ed before January 31st 1985. 


to a compl e C t e , th'e C s , eme^ceon V the 








The prizes will be awarded to the 
















Should we havea tie break situa- 
tion then we'll ask him to decide 


n 


ool 


hTCm^putTtn^n 


made by the Editor of ZX Corn- 




WB 


ope (don't forget the 


puling. No correspondence will 




e should be in thi 



Prism competition 


brimmed sletson are . 


Results 


Mr Julian Payier of North- 


The October/November PRISM 


Mr A Ford of Cornwall 


competition prompted a 


Zamir Hyder of Surrey 


massive response and most of 


P J Woodward of Bradford 




Barry Hetherington of Thame 




Daniel Turtschi of Switzer- 


rectly. The pictures (in order 


land 




Mr A D Mallet of Bracknell 




Mark Summers of Northumb- 


1 ZX81 Keyboard 




2 ZX Printer 




3 ZX Interface 1 




4 ZX Microdrive 




5 ZX Spectrum 
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Starring The Overlords 
of the Universe 
The candidate |you| 
have to get to the 
Chamber of Creation. 
It's a laugh a minute, 
since it's 2,000 light 
years away on r' 




A full feature adventure 
starring w 

nasty aliens the Zarps. 
Can you play the hero 
and stop their plans to 



Starring The Zurgs 
After a desperate spa 
battle only one fleet 
heroes remain! 
prevent the inv, 
earth. The future of 
humanity lies with yt 



ZX81 CAME 



Oodunnit? 



Sherbet Homes would have had a 

problem solving S Greaves' mind 

stretching game which was set in 

Coventry. 



: of (lata is 2 
ke, RE-RUM 




%J 



POKE 16510.1 
POKE 16511,! 
POKE 165 12,' 
POKE 16 518.' 



I IkeytoTontinue. After 

■ game and you should 

B I y^mo.Tusetha^ 

B ■ lor left, rnhi, ,ii.i ji-.ii 



POKE 16519.1 18 ■ 
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vji £L 


help you find th 
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Unes 10to99 J^T 
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up the variable 


and print the 
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hen start the 
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Lines 1000 to 11 99 
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Lines 2000 to 2200 




ok the keys, m 


"h v ° l "i'.' eC n 




into a waTl 
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st then check's 


fMarTghto. 
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cards you picke 


d. 
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Lines 6000 to7000 
















Lines 9400 to 9540 








Lines 9 700 




wards are the d 


,,lo,d„,nd 









variables 


22 LET LR=0 
sition 30 DIM N*<7- B) - 


PPA + PPB Players screen p 
CPA + CPB Computers sere 




31 DIM R$(7,8) r*\ ^~ 


TA + TB Comput.iiMaru- 




32 DIM W*(7,8) I < f^ 


PR + TR Computers pres 




33 DIM A(3) V»A*. M 


DP Oala pointer, 




34 DIM Ci2,3,3) (mS\ M 


LR Last room playe 
D The dice value. 

E Used as a count 


was in. 


35 DIM G(3) ^^Ml* 




36 DIM 0(3,7) ^^^^ 


N + V + L Various :oo,:i. 


s of the player or the 


50 LET N*(1)="PAUL" ^^ ~ 

51 LET NtC2)="JOHN" jtj^^L 


A(3) The answer. 




52 LET N*<3)="MARK" ^^H^B 


X{3( Usedtosetupt 
0(3,31 The r: mi i i.,.i i..r.:-. 


S3 Q^ f 


53 LET N$<4>="PAT" 4^H ^^k 

_e:t n*(5)= m steve" ^H ^^P* 


R$<7,8) 
WSI7.8I 


55 LET N*(6)="SARA" W^M 


W^ 


56 LET N*<7)="TRACY" J^M ^^U 






R*(1>="KITCHEN"a JV^P 


Anv mistakes in the rl.-,Mv;i,l 


which in Qur ex 


62 LET R*(2)="CL0SET" ^/ J^^ 


cause the computer to move in 


am t' le i = firlfa 562 + ,6 " l3 " 


63 LET R*{3)="BEDRQ0M" 


eveiTcTuse^er'ro^wilh'epor't 


■" v^n 


64 LET R*(4)="HALL" 


codeS.Tddiet'k ih.L'-iuia HUN 


/ \ 


65 LET RS(5)="L0UNGE" 


980" and correct any 


«J ) 


66 LET RS(6)="STAIRS" 


For those interested in the 


""^v J 


67 LET R$(7)="BATHR00M" 


layouland i.&e a' In- puty. il i;. 


v^x 


71 LET W*(1)="STICK" 


data. The first block is lor the 


The computer then takes PEEK 


72 LET W*12)="HAMMER" 


start , the second block is (or the 


PEEK (16574 + 1 ) as the col- 


73 LET W*(3>="AXE" 

74 LET W*(4)="KNIFE" 


and soon up to theS th block for 


These' coor ! dinates' , u'nt < iMt 


75 LET W*<5)="GUN" 


room7 These blockTave dlvi™ 


reaches them. When it has 


76 LET W*(6)="LEADPIPE" 


ed into7 sections of 6 bits of 


reached a target it checks to see 


77 LET W*<7>="ROPE" 


room the ^.i^.prn-'.srj^ir:,,!... 
e.g. block 0^ se^t™ S^for {^ 


room the data' pointer is in- 


79 PRINT TAB 13; " BDEHLlilffl 


cremented by 2 and the nest line 


B0 PRINT ,,"YDU HAVE TO GUESS 




WHICH ROOM THECRIME WAS CDMMITTE 


are' further split' into 3 pairs. 


room value and starts the whole 


D IN, WHICH WEAPON WAS USED AN 

D WHD DID IT. " 


For an example of how the 


process again after picking a 


01 PRINT "TO MAKE A GUESS YOU 


suppose the computer is in 
room 1 and wishes to go to 


lea vVthe'iteta ToadJr j nd^a'de" 


MUST BE IN AROOM. THE ROOM YOU A 
RE IN IS THE" 


room 3. First it sets the data 


date. To save the urogram with 
Auto-start RUN9600. 


B2 PRINT "GUESS FOR THE ROOM. 


which is 16520, it then adds 


ENTER YOUR GUESS FOR THE WEAPON 


42 K (the present toom noil 


AND NAME OFTHE PERSON AS A SING 


6 xUtergSt room no:) - 1 1 


Happy Sleuthing. 


LE NUMBER. " 

B3 PRINT "YOU MAY NOT GO BACK 


Llslinsl , 




INTO A ROOM UNTIL YOU HAVE BEEN 






INTO ANOTHER" 


REM DATA HELD 


HERE-5EE TEXT 


85 PRINT , , "USE THE CURSOR KEY 
S TO MOVE LEFT, RIGHT, UP AND 


J RAND 




DOWN, AND KEYS1,2,3 AND 4 TO MOV 


2 CLS 




E DIAGONALLY. " 


3 SLOW 




86 PRINT "YOU ARE THE * AND TH 


9 REM H*MHa 


r\ 


E COMPUTER IS THE C. " ,^^. 


10 LET PPA=10 


O -f 


87 GOSUB 9300 —^^^fc 


11 LET PPB=15 


c; # 


SB * ^^^^H^ 


15 LET CPA=10 


/£C\ / 


98 FAST ^^ ^H 


16 LET CPB=16 


@2L/ 


9° rem nu^m ^^^ /v^A 


17 LET TA=I0 


v* r 


100 LET E=l M^^.^ ^^^ 


IB LET TB=16 


^m 


120 DIM X<7) : ^B r 


19 LET PR=0 




130 LET B=0 ^^* 


20 LET TR=0 




140 GOBUB 9060 ^M 


21 LET DP= 16520 




150 LET A!E)=D ~ 


36 




» COMPUTING FEBRUAHY.MARCH 1985 





' 160 LET X <D)=1 
170 FOR N=l TD 6 
180 LET NN=INT (N/2+.5) 
190 GOSUB 9060 

200 IF X(D)<>0 THEN GOTO 180 
210 LET C(B+I,E,NN)=D 
220 LET X(D)=1 

225 IF B=0 THEN LET 0(E,D)=1 
230 LET B=NOT B 
240 NEXT N 
250 LET E=E+1 
260 IF E<4 THEN GOTO 110 
270 SLOW 

2B0 GDSUB 9200 — . 
2B5 GOSUB 9300 A \ 
290 GOSUB 1000 > \ 
999 GDSUB 2000 SnC\ 


zx 

f 


1999 STOP 

2010 GOSUB 9010 

2020 PRINT AT 0,0; "YOUR MOVE. DI 

CE=" S D 

2030 GOSUB 9030 

2035 PRINT AT , ; " MHI^M^^^ 




2040 FOR Y=l TO D 

2050 LET M*=INKEY* 

2060 IF M*="" THEN GOTO 2050 

2070 PRINT AT (PPA+ <M*="6") + (M*= 

■'3")+(M*="4")-(M*="l">-<MS = "2")- 

<M*="7" ) ) , (PPB+(MS="2")+(M*="3"> 

+ (M*="B-' 1 - <MS=" 1 " > - CM*="4") - <MS= 

"5") ) ; 

2075 LET P=PEEK (PEEK 16398+256* 

PEEK 16399) 




— w* 

1000 REM I3W-I71 
1010 CLS 

1014 REM 

1015 REM NUMBERS 1-7 SHOULD BE 

IN INVERSE PRINT 

1016 REM 


2080 PRINT AT FPA.PPB;" " 

2085 IF PO0 THEN GOTO 3000 

2090 LET PPA=PPA+(M*="6" >+(M*="3 

">+<M*="4")-(M*="l">-(MS="2")-<M 

*="7") 

2095 LET PPB=PPB+(M*="2")+(M*="3 

11 ) + < M*= " 8 " ) - IM*= " 1 " > - ( M*= " 4 " ) - ( M 

*="5") 

2100 BOSUB 1100 ^O. 













I HI BATH ■ 
PRINT "■ ROOM ■ 



I PRINT 
I 

LOUNGE 



I PRINT AT PPA.PPB; 

l;"C" 

I RETURN 



2200 GOTO 4000 VV 1 ' 

2999 STOP ^F 

3000 REM PfflEBBQ 

3005 IF P<64 THEN GOTO 2090 

3010 IF P>156 THEN GOTO 3100 

3020 GOSUB 1100 

3025 SLOW 

3030 GOTO 2050 

3100 LET R=P-156 

3105 IF R=LR THEN GOTO 3020 

3110 LET LR=R 

3115 LET P=0 

3120 FAST 

3125 CLS 

3130 PRINT "YOU ARE ";"IN THEON 

THE" (6*(R=6) + 1 TO 6# IR=6) +6) ; " " 

i R* ! R > 

3140 PRINT ,, "ENTER YOUR GUESS, 

WEAPON NUMBER AND NAME NUMBER FR 

OM :-" 

3145 GDSUB 9110 

3150 GOSUB 9200 

3155 INPUT G* 

3160 IF LEN G*<>2 OR CODE G* < 1 >< 

29 OR CODE G*I2K29 DR CODE G* ( 1 

) >35 OR CODE G*(2)>35 THEN GOTO 

3150 

3155 INPUT G* 

3160 IF LEN B*<>2 OR CODE G* ( 1 >< 

29 OR CODE G*(2)<29 OR CODE G* ( 1 



) >35 OR CODE G*(2)>35 THEN GOTO 

3150 

3175 CLS 

31B0 LET G(1J=R 

3190 LET G(2)=VAL G* < 1 ) 

3195 LET G(3>=VAL G*C2) 

3200 FDR V=l TO 3 

3210 IF fl(VK)GIV) THEN GOTO 350 



32 20 


NEXT V 


3230 


PRINT "YOU GOT IT RIGHT 


3250 


GOTO 9400 


3500 


RFM IHaXKIt 


3501 


LET Q=0 


3510 


LET V=INT <RND*3>+1 


3520 


FOR X=l TO 3 


3530 


IF C£1,V,X)=G<V> THEN Gl 


3600 




3541 


LET Q=E)+1 


3542 


IF Q=3 THEN GOTO 3560 


3545 


LET V=V+1 


3549 


NEXT X 


3550 


IF V=4 THEN LET V=l 


3555 


GOTO 3520 


3560 


PRINT "WRONG BUT I HAVE 


E OF 


THEM" 


3565 


SLOW 


3570 


GOSUB 9300 


3575 


GDSUB 1000 


3580 


GOTO 2079 


3600 


PRINT "WRONG, I HAVE " 


3601 


IF V=l THEN PRINT R*(GO 


3602 


IF V=2 THEN PRINT W*(G(i 


3603 


IF V=3 THEN PRINT N*<GO 


3605 


SLOW 


3610 


GOSUB 9300 


3611 


GOSUB 1000 


3615 


GOTO 2079 


3999 

4000 


STOP 




4001 


GDSUB 9000 


4003 
= " 5 D 

4004 


PRINT AT 0,0; "MY MOVE. 1 


GOSUB 9030 


4005 


PRINT AT . ; " HHB^^^H 



4010 FOR Y=l TO D 

4020 LET MA=0+(CPA<TA)-<CPA>TA> 

4030 LET MB=0+(CPB<TB>-(CPB>TB) 

4035 LET CPA=CPA+MA 

4036 LET CPB=CPB+MB 

4040 IF CPA=TA AND CPB=TB THEN G 

OTO 5000 

4050 PRINT AT CPA-MA, CPB-MB; " " 

4070 GOSUB 1100 

4080 NEXT Y 

4090 GOSUB 1020 

4100 GOTO 2000 



4500 LET PR=TR 

4510 FOR J=l TO 7 

4520 LET TR=INT (RND#7)+1 

4530 IF O(1,TR)<>0 THEN NEXT J 

4540 IF TR=PR THEN LET TR=INT (R 

ND»7)+l 

4545 IF TR=PR THEN GOTO 4540 

4550 IF PRO0 THEN GOSUB 6000 

4620 LET DP=16520+(PR#42>+< (TR-1 

)*6) 

4630 LET TA=PEEK DP 

4640 LET TB=PEEK (DP+1) 

4645 PRINT AT 0,0; 

4650 GOSUB 1020 

4655 GOTO 4070 

4999 STOP 

5000 IF TR=0 THEN GOTO 4510 
S010 PRINT AT CPA.CPBi 

5015 LET P=PEEK (PEEK 16398+256* 
PEEK 16399) 

5016 IF P>12S THEN GOTO 4500 

5017 IF P=23 THEN GOTD 5100 
5020 LET DP=DP+2 

5025 PRINT AT CPA-MA, CPB-MBj " " 

5030 GOTO 4630 

5100 LET CPA=CPA-MA 

5110 LET CPB=CPB-MB 

5120 GOTO 2000 

5999 STOP 

6010 CLS 

6020 PRINT "MY GUESS : -" 

6021 FAST 

6025 LET E=2 

6026 LET GD=INT CRND*7)+1 
6030 FOR J=I TO 7 

6035 LET GD=GD+1 

6036 IF GD>7 THEN LET .GD=1 
6040 LET G(E)=GD 

6050 IF O<E,GD)<>0 THEN NEXT J 

6060 LET E=E+1 

6070 IF E<4 THEN GOTO 6026 

6075 LET GU>=PR 

6080 PRINT 

6090 PRINT G(l);" ";R*(G(1>>;" " 

;G(2) ; " ";W*<6(2) ) ; " "iB(3)|" "; 

N*(G(3) ) 

6095 GOTO 7000 

6100 GOSUB 9200 

6105 LET J=0 

6110 PRINT ,,"IF YOU HAVE ANY OF 

MY GUESS PLEASE ENTER ROOM 
WEAPON OR NAME" 

6115 PRINT "IF YOU HAVE NONE THE 
N PRE5S N/L" 

6120 INPUT G* 

6121 IF G*="" THEN GOTO 6500 

6130 IF G*(1)="R" THEN LET J=l 

6131 IF G*<1)="W" THEN LET J=2 



ZXS1 CAME 



6132 IF G*(1)="N" THEN LET J=3 
6140 IF J=0 THEN GOTO 6120 
6170 LET D<J,G(J) )=1 

6175 PRINT AT 15,0; "THANK YDU 

6176 SLOW 

6180 GDSUB 9300 

6190 RETURN 

6500 LET E=l 

6510 FOR L=l TO 3 

6520 IF C(2,E,L)=G(E) THEN GOTO 

6600 

6530 NEXT L 

6540 LET E=E+1 

6550 IF E<4 THEN GOTO 6510 

6560 GOTO 6175 



6610 GOTO 6120 

6999 STOP 

7000 FOR J=l TO 3 

7010 IF G(J)OAtJ) THEN GOTO i 

a 

7020 NEXT J 

7030 PRINT "I GUESS RIGHT" 

7040 GOTO 9400 

0999 STOP 

7000 REM BBBB 

9010 LET D=INT <RND*6>+1 

9020 RETURN 

9030 FOR L=l TO IB 

9040 NEXT L 

9B50 RETURN 

9060 LET D=INT <RND*7)+1 

9070 RETURN 

9100 CLS 

9110 PRINT 

9115 PRINT TAB 3; "ROOM" ( TAB 1 

WEAPON" J TAB 24; "NAME" 



9315 



INKEY*=" 



THEN GOTO 9315 



TO 7 



;R*(; 



"YOU HAVE 



9140 NEXT N 

9150 RETURN 

9200 PRINT , 

9210 PRINT TAB 3; "ROOM 

WEAPON" j TAB 24; "NAME" 

9220 PRINT 

9230 FOR N=l TO 3 

9240 PRINT C(2,1,N)|" 

,N>);" ";C(2,2 

))[" ";C(2,3,N> I " "jN*(C(2,3,N> 

9250 NEXT N 

9260 RETURN 

9300 PRINT ,, "PRESS ANY KEY TO C 

ONTINUE" 

9310 IF INKEYSO"" THEN GOTO 931 



" ;RS<C 
W*(CC2. 
<(C(2,3. 



9320 RETURN 

9400 PRINT ,,"THE MURDER WAS COM 

MITTED BY",N*(G(3) ) 

9410 PRINT "IN DN "(2«(1 AND G(l 

)=6>+l TO 3+<3*<G<l)=6) ) ) ; "THE " 

;R*(G(1) ) 

9420 PRINT "WITH A ";W*(G<2)) 

9500 PRINT ,,"00 YQU WANT ANOTHE 

R GAME (Y/N)?" 

9510 INPUT A* 

9520 IF A*="N" THEN PRINT "OK BY 

ME. " 
9525 IF A*="N" THEN STOP 
9530 IF A*="Y" THEN RUN 

9599 REM BfflH 

9600 SAVE "OODUNNIT" 
9610 RUN 

9700 REM HgBHB 

9701 FAST 
9705 LET A*="" 

9710 PRINT "ENTER STARTING ADDRE 

SS" 

9715 INPUT A 

9720 SCROLL 

9725 PRINT A;"i"; 

9730 FOR N=l TO 6 

9735 IF A*="" THEN INPUT A* 

9740 POKE A,(16»C0DE A4+C0DE A* ( 

25-476) 

9745 PRINT " " ; A* ( TO 2); 

9750 LET A=A+1 

9755 LET A*=A*<3 TO ) 

9760 NEXT N 

9765 PRINT 

9770 GOTO 9720 

9B00 REM BBSBBS 

9805 PRINT "ENTER STARTING ADDRE 

SS" 

9S10 INPUT A 

9815 PRINT A; "; "; 

9820 FDR N=l TD 6 

9825 LET P=PEEK A 

9830 PRINT " ";CHR* (28+INT <P/1 

6>>;CHR* (2B+P-(16*INT (P/16>>>; 

9B35 LET A=A+1 

9840 NEXT N 

9845 IF PEEK 16442=3 THEN GOTO 9 

860 

9850 PRINT 

9855 GOTO 9815 

9860 PRINT AT 0, 



9865 IF INKEY*="" THEN GOTO 9865 



CLOSSYAIRY 



Glossyairy 

or the Plain Man's Guide to Computer Terminology 
according to Jim Lock of Surrey- 



Access 


sometimes used to buy a computer 


Digital 






Adaptor 


— connector enabling other people's equipment 

— word frequency mm.::! by software reviewers 
to describe games their children wouldn't let 


DIM 




written by your seven year old daughter 
— unworkable, as in "flexible operating 




thsm pl.» 


Flying Si 


WM 


n — immensely complicated game requiring the 
use of at least fourteen fingers at once 




— fantasy game requiring fairly logical handling 










of very unusual objects 


FOR . . . 


MEXT 


- short extract from conjuror's patter, "For my 
Next trick" 


Amplifier 


— device which plugs into your computer and 












High res 




technique used by a computer to draw very | 




playing "3D PacVaders" 


graphics 




wobbly diagonal lines on a T.V. screen 


Arcade game 


- colourful and noisy reaction taster 


IF, . .THEN 


conditional statement, as in "IF you try to copy 










this program THEN your computer will explode 


II, 




interfere 


ca 


PacVadars" 


intelligence 


thinks you have 


Joystick 




youHa^st^ame Wi " "'"^^ n01 W °"' "^ 


Autostart 












fingers on the control keys 


Kilobyte 




- enormous hamburger 


BASIC 


- a standard language most suitable for 

wordsandinstructionssuchasABS.OPeN #, 
LPRINT.USR, DEFFNandCHRS 


LENand 

Listing 




- o « r „i, ac o U „l,„H„,..,,o^, h , 


BBC 


-*«. »<M.H 


L* 




|M^^p^||M^hj<m|nw^ 


Bug 












which crawls into the computer through a hole 










in the back and plays havoc with your programs 


graphics 




almost recognisable pictures out of building 1 


Command 


— an order you give the computer which often 






oc s 




gets the reply "Nonesense in BASIC" 


Memory 




— something you discover you need a few days 
after buying the cheaper computer 


Compatible 


- it won't work with your ocmputer 


Menu 




- a list of options from which you invariably 


Comprehensi 


e — contains ahsruirely ,-:ti;ryihmg you need to 
know, except for the one thing you went to find 


Microdri, 


a 


choose wrongly 


Computer tap 


— used to attach a Sinclair RAMpack to a 
ZX81 


Micranet 
Mind gan 




— intellectually demanding ys.ne requiring very 


Console 


your computer, power supply, cables and 






unusual handling of fairly logical objects 




accessories but takes up three times the space 


Modem 








they did 






girlfriend 


Cursor key 




Motherb 


ard 


- Mum's reaction to news of offspring's latest 
hi-scoreon"3DPacVadera" 



CLOSSYAIRY 




ALL MACHINE CODE ARCADE GAMES 



- 



We Don't Need 
To Advertise 



I ZX81 SIMULATION I 



Netherwallop 
Coif course 

we have printed golf programs in the past, but I 

think you'll agree this one from Norman Brooks 

of Kent is superb. 




I ZX81 SIMULATION I 



2000 
2500 
3000 
3500 



6000 
6100 



2000 
2500 
3Q00 



Out of Bounds Routir 




variables used 




Numeric Siring to store strokes per hole 




No. of hole being played. 






Zffll 










Last X coordinate of golf ball plot. 




Last V coordinate of golf ball clot. 






V2 


Y coordinate of ball at end of last stroke. 


X 


X coordinate of current golf ball plot. 




V coordinate of current golf ball plot. 






D 


Max. distance for club subsequently modified bv 


P 


Swing strength chosen or putter strength when 


A 


Angle of flighi ssiire-jciuftr uly modified bv wind 


L 


Conversion of V coordinate into a PRINT coord. 


K 


Conversion of X coordinate into a PRINT coord. 


B1 








B3 




B4 






X print position oi tall cm'r pm-i position of ball 










02 


Random Xpnntpoutioi. of hob on gr..n. 



40 GDSUB VAL "9500" 
50 EDTD VAL "9000" 
105 GDSUB VAL "6000" 
110 PRINT AT 2, 10; "WHICH CLUB? 
(0 TO 9) 
120 INPUT C 

125 IF C>9 THEN GOTO 120 
130 IF NOT C THEN LET D=2H 
140 IF C>0 AND C<=4 THEN LET D= 
270-O30 
150 IF C>4 THEN LET D=220-C»20 
155 PRINT AT 2,10; " 
";AT 2,10; 
160 IF NOT C THEN PRINT "PUTTER 

170 IF C>0 AND C< = 2 THEN PRINT 
"NO. ";C; " WDDD" ; 

1S0 IF C>2 AND C<=8 THEN PRINT 
"NO. " i Cj " IRON"; 

190 IF OS THEN PRINT "SAND WED 



195 PRINT " SELECTED" 

210 PRINT AT 3,10; "WHAT SWING? 

1 TD 4) 

220 INPUT P 

225 IF FX1 OR P>4 THEN GOTO 220 

255 IF C THEN PRINT AT 3,10; "CH 
OICE IS A "♦("CHIP SHOT " AND P= 
U + C'l/2 " AND P=2)+("3/4 " AND 
F=3)+("FULL" AND P=4 > + t " SWING" 
AND P>1J 

2B0 IF NOT C THEN PRINT AT 3,10 
; "FORCE ";P;" PUTT SELECTED " ► 



I ZX81 SIMULATION I 



at, 




v 


n_T w l_j 






-.s™ 




t 4 




- = - 




n~ 


t 


J rh rh rh 




t 


T 





290 LET D=D*P/4 

310 PRINT AT 4, IB; "DEG. CLOCKWIS 
E FROM CT? " 

320 INPUT A 

322 IF A<0 OR A>360 THEN GOTO 3 
20 

325 PRINT AT 4,10; (" " AND A<10 
)+(" " AND A<100>;A;" DEG. " 

32a LET R=15-INT (1+30*RND1 

330 IF R THEN PRINT AT 4,l?f"CR 
DSSWIND , '+(" + M AND R>0);R;" " 

331 IF NOT R THEN PRINT AT 4,1V 
; "NO CRQSSWIND " 

335 LET A=A+R 

345 LET A=A+360»( (-<A>360> > + <A< 
0) ) 

350 LET A=PI*A/180 

410 LET S(N>=S(N)+t 

460 FOR R=0 TO D/Z (N) STEP 2 

470 LET X=X2+R*SIN A 

4B0 LET Y=Y2+R*COS A 

485 IF X<-0.5 OR X>=49.5 OR Y<- 
0.5 OR Y>=29.5 THEN HO TO 4000 

5BB UNPLOT X1+S.Y1+2 

520 LET L=15-INT ((Y1+0.5J/2) 

530 LET K=1+INT <<Xl+0.5>/2) 

540 PRINT AT 5+L.3+K; D$ (L,K J 

545 PLOT X+8,Y+2 

550 IF ROB AND D*((15-INT ( (Y+ 
0.5J/2) > , ll + INT ( (X+0.5J/2) ) )="T 
" THEN GOTO 3500 

560 IF ROB AND D*((15-INT (1Y + 
a.ai/2) ) , (l + INT ( (X+0.5>/2> ) ) = "» 
" THEN GOTO 2BBB 

610 LET X1=X 

620 LET Y1=Y 

730 NEXT R 

740 LET X2=X 



THEN LET B2= 



THEN LET Bl; 



THEN LET B2= 



750 LET Y2=Y 

754 LET L=15-INT 

755 LET K=1+INT i 

756 IF D*(L,K>="I 
l+INT (RND*15) 

757 IF D*(L,K)="i 
l+INT <RND»25) 

753 IF D*(L,K)="i 
11+INT (RND*5) 

759 IF D*(L,K)="H 
16+INT (RND*51 

760 IF RO0 AND D*(L,K>="&" 1 
N GOTO 5BBB 

765 IF ROB AND D*(L,K>=" + " 1 
N GDTD 5000 

770 IF RO0 AND D*(L,K)="=" " 
N GDTO 3000 

7BB IF RO0 AND D*(L,K) = "*" ' 
N GOTO 250B 

99B GOTO VAL "IBB" 
2010 GOSUB VAL "600B" 
2B2B LET X2=X 
2025 LET Y2=Y 
2030 LET X1=X 
2035 LET Y1=Y 
2040 LET D=40 

2B50 PRINT AT 2, 10; " EOEiaaa-SAr 
WEDGE ONLY" 

2B6B LET P=1+INT <RND*4) 
2B7B IF P=2 THEN PRINT AT 3,11 
YOU CAN ONLY CHIP OUT." 
20S0 IF P=3 THEN PRINT AT 3,11 
YOU CAN ONLY SLICE OUT" 
2090 IF R=l THEN PRINT AT 3,11 
OH DEAR. . .DREADFUL LIE" 
2100 IF P=4 THEN PRINT AT 3,11 
YOU CAN ONLY BLAST OUT" 
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2490 GOTO VAL "290" 

2510 GOSUB VAL "6000" 

2600 LET C=4+INT <RND*6) 

2700 PRINT AT 2,10; "EEEBB-vaUR L 

IE IS "+<"GOOD" AND C<6) + ( "FAIR" 



AND (C>5 AND CO) 
C>7) 

29B0 PAUSE 150 
2990 GOTO VAL "140 
3010 LET S<N)=S(N) 
3020 GOSUB VAL "60 
3030 PRINT AT 2,10 
BSBKEXEBM " ; TAB 10 
STROKE. . . . "(TAB 10 
OP NEWBALL" 
3040 IF INKEY*<>"N 



"POOR" AND 



"PENALTY = 1 
"PUSH N TO DR 

THEN GOTO 30 



3050 UNPLOT X+B.Y+2 

3130 FOR R=l TO 20 

3140 LET X = X-2 

3160 LET L=15-INT <<Y+0.5>/2) 

3170 LET K=1+INT ((X+0.5>/2) 

3180 IF D4(L,K>=" " THEN GOTO 32 

00 

3190 NEXT R 

3200 LET X2=X 

3210 LET Y2=Y 

3220 PLOT X+8,Y+2 

3490 GOTO VAL "100" 

3520 GOSUB VAL "6000" 

3580 LET X2=X 

3590 LET Y2=Y 

3600 LET C=5+2»INT <RND*3) 

3950 PRINT AT 2, 10; " BBEBB -VOUR L 

IE IS 

3954 PRINT AT 2,28; ("GOOD" AND C 

=5)+ ("FAIR" AND C=7)+<"P0DR" AND 
C=9> 

3960 PAUSE 150 

3990 GOTO VAL "150" 

4010 LET S(N)=S(N)+1 

4020 GOSUB VAL "6000" 

4050 UNPLOT X1+8.Y1+2 

4060 LET X = X1 

4070 LET Y=Y1 

4080 LET X2=X 

4090 LET Y2=Y 

4450 PRINT AT 



10; "YOU ARE I 



4460 PRINT AT 3, 10; "PENALTY = 1 

STR8KE. ..." 

4470 PRINT AT 4,10; "PUSH N TO DR 

OP NEWBALL" 

44B0 IF INKEY*<>"N" THEN GOTO 40 



44B5 PLOT X+8.Y+2 
4487 PRINT AT 4,10 



4490 GOTO VAL "10 



4520 IF D*(B1,B2X>"B" THEN RETU 

RN 

4530 GOSUB VAL "6000" 

4540 PRINT AT 2,10; "r""l lr"+CHR* 

4+" ||"+CHR* 135+CHR* 1 + " nil 
"+CHR* 2+"r"+CHR* 2+'T" 
4550 PRINT TAB 10;"^ I ||"+CHR* 
2+CHR* 4+"|ft I— II I | " 
4560 PRINT TAB 1 : " _J LJ I "+CHR* 

2+"JH ". I U I I" 
4570 FDR R=l TO 25 

4580 PRINT AT 5+B1 , 3+B2; "B" ! AT 5 
+B1,3+B2;"0" 
4600 NEXT R 
4990 GOTO VAL "9000" 
5040 GOSUB VAL "6200" 
5045 IF D*<L,K)="H" THEN GOTO 45 
30 

5047 PRINT AT 10+01 , 18+02; D* (5+0 
1 , 15+02) 
5082 PRINT AT 5+B1 ,3+B2; "0" 

5084 LET B5=B1 

5085 LET B3=B1 

5086 LET B4=B2 

5087 LET B6=B2 

509B SOSUB VAL "4500" 

5095 LET D=20 

5097 GOSUB VAL "6000" 

509B PRINT AT 2, 10; "0H@ail-PUTTER 

SELECTED " 
5100 PRINT AT 3, 10; "STRENGTH? (1 

TO 20) 
5110 INPUT P 
5120 LET D=D*P/20 

5125 IF P<1 OR P>20 THEN GOTO 51 
10 
5130 PRINT AT 3, 10; "FORCE "+(" " 

AND P<t0);P;" PUTT SELECTED" 
5150 PRINT TAB 10; " DEG. CLOCKWISE 

FROM H? " 
5155 INPUT A 

5160 IF A<0 OR A>360 THEN GOTO 5 
155 

5170 PRINT AT 4 , 10+ I A< 100) + (A< 10 
I ;A; " DEG. CHD5EN 
5200 IF A<0 THEN LET A=A+360 
5210 IF A>360 THEN LET A=A-360 
5220 LET A=PI*fl/180 
5230 LET S(N)=ST i + l 
5250 FOR R=l Td D 
5260 LET BI=B5-I":T (R*COS A) 
5270 LET B2=B6+INT (R*5IN A) 
5272 IF SKI THEN LET Bl = l 
5274 IF Bl>15 THEN LET Bl=15 
5276 IF B2<1 THEN LET B2=l 
5278 IF B2>25 THEN LET B2=25 
52B0 PRINT AT 5+B3 ,3+B4; "g" 
5290 PRINT AT 5+B1 ,3+B2; "0" 
5300 GDSUB VAL "4500" 
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5302 LET B3=B1 
5304 LET B4=B2 
5310 NEXT R 
5320 LET B5=B1 
5330 LET B6=B2 
5490 GDTD VAL "5095" 
6010 FDR R=2 TO 4 
£,020 PRINT AT R,10; " 



6030 NEXT R 
6040 RETURN 
6110 FOR R=l 
6120 PRINT A 
6130 NEXT R 
6140 RETURN 
6210 FOR R=l 
6220 LET D*( 



TO 15 
5+R,4;D*<R) 



6230 PRINT AT 5+R,4;D*(R) 

6240 NEXT R 

6250 LET 01=1+INT <RND*5) 

6260 LET 02=1+INT (RND*5> 

6270 LET D*<5+01, 15+02) ="H" 

6290 RETURN 

6510 GOSUB VAL "B500" 

6520 FOR R=l TO 3 

6530 LET D*<l+R,21 TO 24)=" 

6540 LET D*(6+R,17 TO 20> = "rag88" 

6550 NEXT R 

6560 LET D*(B,19)="+" 

6570 PRINT AT 1,6j9jAT 2,6i4jAT 

3,5;450 

6590 GOSUB VAL "6100" 

6600 LET Z<N)=VAL "11.271153" 

6620 RETURN 

6760 GOSUB VAL "7500" 

6770 FOR R=l TD 3 

6780 LET D*(10+R,20 TO 23)=" 

6790 LET D*(2+R,19 TO 22) ="WgM" 

6S00 NEXT R 

6810 LET D*(4,21>="+" 

6B20 PRINT AT 1,6;B;AT 2,6;4;AT 

3,5; 400 

6B30 PRINT AT , 1 3 ; " WBBBSWBSBSB, 

m •■ 

6840 GOSUB VAL "6100" 

6B50 LET Z(N)=VAL "8.2026478" 

6B60 RETURN 

7010 GOSUB VAL "7250" 

7020 FOR R=l TO 3 

7025 LET D*(l+R,21 TO 24)=" " 

7030 LET D*(6+R,19 TO 22)="i^^" 



7040 NEXT R 

7050 LET D*(S,21)="+" 

7100 PRINT AT 1,6; 7 j AT 2,6; 3 ; 

3,5;200 

7110 PRINT AT PI, 13; ■i:i*-1im 

■ " 

7120 GOSUB VAL "6100" 

7I30 LET Z(N>=VAL "4.5S10B71 

7 I 40 RETURN 

7260 LET D*(l)="== 



7265 LET D*(2)= 

7270 LET D*(3>= 

7275 LET D*(4)= 

72B0 LET D*<5)= 

T 
72B5 LET D*(6>= 

at *•■ 

7290 LET D*<7)= 

7295 LET 
T * 
7300 LET 

7305 LET D*(l0>=' 

m **" 

7310 LET D*(ll)= 
7315 LET D*C12>= 
7320 LET D*(13)= 
7325 LET D*(14)= 
7330 LET D*<15)= 



D*(B)="TTT 
D*<9)="TTT 



7340 IF N=7 THEN RETURN 

7400 PRINT AT 1,6;6;AT 2,6;5;AT 

3,5;53D 

ED " 

7420 GOSUB VAL "6100" 

7440 LET Z<N)=VAL "10.29563" 

7450 RETURN 

7510 LET D*(1>="TTTTT»*»*****=»* 

7515 LET D*(2)="TTTT*****«**« *■ 

7520 LET D*<3>="TTT*»»» ** 

7525 LET D*(4)="TTT»* St 

7530 LET D*(5)="TTT* 

7535 LET D*(6)="TT* 
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7540 LET D*(7>=' 

7545 LET D*(B>=' 

7550 LET D*(9)=' 

T" 
7555 LET D*<10>= 

T" 
7560 LET D*(ll)= 

7565 LET D*(12)= 

Hi »+« T" 
7570 LET D*<13)= 

7575 LET D*U4> = 



TTTT 

TTTTTTT 

TTTTTTTTT 

TTTTTTTTTTT 



TTTTTTTTTTTT 
TTTTTTTTTTTTT 



7580 LET D*<15>=' 

TTTTTTTTTT" 

7590 IF N=B THEN RETURN 

7600 PRINT AT 1,6;5;AT 2,6;4;AT 

3,5; 380 

7610 PRINT AT 0, 15; " MfflBMBBBlBD 

m " 

7620 GOSUB VAL "6100" 

7640 LET Z(N>=VAL "8.7223B9B" 

7650 RETURN 

7760 LET D*<1>=" 

7765 LET D*(2>=" T T 

B " 

7770 LET D*<3)=" T T 

7775 LET D*<4>=" TT 

"+CHR* 4+"T wsh-m 

7780 LET D*(5)=" T T Tf 

7785 LET D*(6)=" T T T" 

CHR* 135+"Bi"+CHR* 4+"T 8 " 

7790 LET DS(7)=" TT 

TTT *" 

7795 LET D*<8)=" T 

7B00 LET D*(9>=" T T 

7B05 LET D*(10>=' 

7810 LET D*(ll)= 

7815 LET D*(12>= 

7820 LET D*(13)= 

7825 LET D*<14)= 

7830 LET D*<15)= 

6;4;AT 2,6;4;AT 



7920 GQSUB VAL "6100" 

7940 LET Z(N)=VAL "9.0229126" 

7950 RETURN 

8010 LET D*(l>="** 

TTTT" 
8015 LET D*(2>="»* 



l LET DS<3)^ 



7900 PRINT AT 

3,5;440 

7910 PRINT AT 0,13 



8025 LET D*(4)="»» 

8030 LET D*(5)="** === 

8035 LET D*(6>="»* == 

&+M == " 

8040 LET D*(7>="# ™- mm 

8045 LET D*(B)="* ======= a 

B050 LET D*(9)="« ======== 

B055 LET D*(10)="« ==== == 

B060 LET D*(ll>="* == 

8065 LET D*<12)=" 

8070 LET D$(13)=" 

8075 LET D*(I4)=" 

TTT" 
B0S0 LET D*(15>=" 

TTTTTTT" 
8090 PRINT AT 1,6;3;AT 2,6;3;i 
3,5; 150 
8100 PRINT AT 0,13; "■nmEEEMI 

8200 GOSUB VAL "6100" 

8210 LET Z(N)=VAL "3.7665147" 

8240 RETURN 

B260 LET D*(l)=" * * * * ♦ 

B265 LET D*<2>=" * + * * * 

TTT 

8270 LET D*(3)=" * * » * « 

T " 
B275 LET D*(4>=" ♦ * * » * T 

M " 

8280 LET D*(5>=" * * * * * 

m T " 
B2B5 LET D*(6>=" * * * * # 

8290 LET D*(7>=" # * * * # 

8295 LET D*(8)=" » * * * * 

8300 LET D*(9>=" * * * * • 
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6;2;AT 2,6;4;AT 



8305 LET D*<10)=" 
8310 LET D*(ll)=" 

m t ■■ 

8315 LET D*(12)=" 

B320 LET D*<13)=" 

T 
8325 LET DS<14)=" 

T T T 
8330 LET D*(15)=" 

8400 PRINT AT 1 
3,5; 370 

8420 GOSUB VflL "6100" 

B440 LET Z(N)=VAL "B.4750111" 

B450 RETURN 

B510 LET D*<1>="»****** TTTTTTTT 

T 

B515 LET D*(2>="**** TTTTTT 

B520 LET D*C3)="** 

8525 LET D*<4)="» 

8530 LET D*(5)="* T 

B535 LET D*(6)=" TTT 

8540 LET D$<7)=" T TT" 

B545 LET D*(B)=" TTTT 

8547 LET D*(9)=" TT 

8550 LET D*<10)=" 

B555 LET D*(ll)=" === 

8560 LET D*{12>=" ===== *** 

8565 LET D*<13)=" === *«*#»» 

8570 LET D*(14)=" ,.»*****«« 

8575 LET D*(15)=" *»«»♦»**** 



8577 IF N=9 THEN RETURN 

85B0 PRINT AT 1,6; 1; AT 2,6; 5; AT 

3,5;500 

S590 PRINT AT 0,13;" ■:!:! gBBMHIM 

aar 

8600 GDSUB VAL "6100" 

8630 LET Z(N)=VAL "9.7128586" 

B740 RETURN 

8755 CLS 



B760 


PRINT 






8770 


PRINT 


IHOLE . 1" 


8780 


PRINT 


J PAR 


1" 


8790 


PRINT 


'IYDS 


1" 




PRINT 
PRINT 






8810 


TAB 3 


CHR.f 135+"^^_ 










BB20 


FOR R= 


1 TD 


5 


BB30 


PRINT 


"AB 3 


" |";TAB 29; "1 " 


8840 


NEXT F 






8B50 


PRINT 


TAB 3 


L'HRS .2+'" 










8860 


PRINT 


\T 20 


0. "TEE" 


8B70 


PRINT 


vr ii 


1; "C1";AT 12,0; 


W+E" 


AT 13, 


L; "S" 




8980 


GOSUB 


VAL " 


B750-250*N) " 


8990 


GOTO VAL "100" 


9010 


CLS 








PRINT 


AT 0, 
TAB 2 








9040 


PRINT 


1; "YDS PAR OUT" 


9050 


PRINT 


■ 1. 


RABBIT WARREN 


500 


5" 






9052 


PRINT 






9055 


PRINT 


1 2. 


THE HEDGES 


370 


4" 






9057 


PRINT 






7060 


PRINT 


" 3. 


BAMBOO ISLAND 


150 


3" 






9062 


PRINT 






9065 


PRINT 


" 4. 


EAGLE ROCK 


440 


4" 






9067 


PRINT 






9070 


PRINT 


" 5. 


CUCKOO WOODS 


380 


4" 






9072 


PRINT 






9075 


PRINT 


" 6. 


THE 5HEEPWASH 


53e 


5" 






9077 


PRINT 






90BE 


PRINT 


" 7. 


THE SANDPIT 


20E 


3" 






9082 


PRINT 






9084 


PRINT 


" 8. 


BLACK SWAMP 



9086 PRINT 

9088 PRINT " 9. THE HEATH 
450 4" 

9095 PRINT TAB 25;" — " ; TAB 

8; "BBBSBS 36"; TAB 25; " — " 

9105 FOR R=l TO 9 

9110 PRINT AT 2*R,29+ tS(R)<10) ;: 

(R) 

9120 NEXT R 

9125 LET T=0 

9130 FOR R=l TO 9 

9140 LET T=T+S(R) 

9150 NEXT R 

9165 PRINT AT 20,28+ <T< 100) + ( T< 
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9170 LET N=N+1 

9172 IF N=10 THEN PRINT AT 
"GAME COMPLETE. 

9173 IF N=10 THEN STOP 
917S PRINT AT 21,0; "PUSH " 
OR NEXT HOLE. " 
9180 IF INKEY* 
L "9180" 
9190 LET X1=0 
9195 LET Y1=0 
9200 LET X2=l 
9205 LET Y2=l 
9490 GOTO VAL "B750" 
9510 PRINT AT 0,0; " 
Uglai GOLF COURSE 
9512 PRINT 

9515 PRINT TAB IB; "B' 
9520 PRINT 

9530 PRINT "WELCOME. ... YOU HAVE 

10 CLUBS " 

9540 PRINT 

9550 PRINT TAB 1 ; "CODE" ; TAB 9s "C 

LUE";TAB 1 7 j "CODE" ; TAB 25; "CLUB" 

"NO. 1 W 



THEN GOTO VA 



-BROOKS" 



9590 PRINT TAB 2; 3; TAB 6; "NO. 3 I 
RON";TAB 1B;8;TAB 22;"N0.B IRON" 



9610 PRINT TAB 2;5;TAB 6; "NO. 5 1 
RDN";TAB 18;0;TAB 22; "PUTTER" 
9620 PRINT 
9630 PRINT "WE HAVE NINE HOLES F 

OR YOU (DETAILS ON SCORE CA 

RD LATER) " 

9650 PRINT 

9710 PRINT "PAR FOR COURSE IS 36 

. GOOD LUCK. (PUSH ANY KEY TD STA 

RT. ) " 

9730 PAUSE 4E4 
9760 DIM S (9) 
9770 LET N=0 



It's easy 

to complain 

about 

advertisements. 

/ 

The Advertising Standards Authority. W 
H an advertisement is wrong, we're here to put K right. 

A.S.A, Ltd, Brook Hoi jseTornngton Place, London WC1E 7HN. 
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REWRITE THE HIGH 



SCORE TABLES 



a Spectrum, You've also got enemies. With the Gunshot, you'll have all the opposition cowerir 
in cornets. 8-clirectional action and an all-in-one moulded stem allows accurate annihilatior 
and strength to survive those all-night sessions. Dual fire buttons for fading fingi 
(and a rapid fire version when they're really coming thick and fast). And, if you 
break it (and we know you'll try) our 12-month guarantee will prove invaluable. 
Only £8.95. For the Gunshot, Vulcan's best-selling Kempston compatible hardwa 
Spectrum interface is exceptional value at £ 11 .50. 

See the range of Vulcan joysticks and interfaces at your 
local stockist ... we'll see you 
on the high score tables. 




4lF? 



vuLCArr 

ELELTHUniCS LTI 

. Joystick qfflius 



Why wait any longer? 




Fully compatible with all SINCU 

NO NEED TOOPEN COMPUTER AND 
INVALIDATE GUARANTEE 




eyour 
6K 
PECTRUM 
Now! 




only£39-95 

including VAT and P&R 



Now make your 

Spectrum 
and ZX-81 Talk 

Compatible with Interface I & II 

H' just plugs into the back of the 
compatible withall SINCLAIR" 



64K RAM Pack for ZX-81 



Dealer enquiries welcome 



^ WHSMITHfJl Rumbelows 




jQieetal 

Marketing 



ih Marketing Lid. 24 Roy Sire 
London EC 1R3DJ. Tel:01 833 4909. 
Telex: 8954958. 



ZX81 CAME 



Connections 

Plav against the computer in this version of the 
popular game programmed by 
Philip Jennings of 
Birmingham. 






you wish to gof irst, before being 


Program notes 








difficulty level 


modification the program will 


difficulty levels. This, mcidently. 


NS 




holding every 




A$ t 


JL,J 


positions of pit 


The game is based on the 








SrinrSw*fnT ° 




J.K 




General PLirpo 


?wo players taking alternate 


game. The playing area is 


Y$ 




The value of A 




19 






goes in an attempt to get four of 


printed on the^ screen, throws of 






determines w 


mm 


LS 




The playing pi 


at the same time trying to pre- 
vent the opponent achieving the 








turn it is. 




J$ 




The selected c 








players. 


Hie 






JS , the piece r 


puter,theZX81 can go one bat- 
ter. Now yoj can play with no 
other opponent but your faithful 


-Wachia^e^'ne^thefreT- 






much former 








selected colurr 










elp 








insists baing U C c.™ e e™ional \hi 


Facilities are included for recor- 






the program r 
a little bit fast 






JS which is nc 


program also has the standard 


p layer, and as anadded bonus, if 


PS 






R 




Simply change 




you are playing against the com - 


S$ 














for the number of players. To 


rr.To7zeraVX L C omp b Jterwill 




initially to det 


rmine QS 




Holds lines fo 




take your go and play against 












































ZX 


COMPUTING 


EBflUARVfMARC 



ZX81 CAME 



A for- next lot 
thoroughly ttl 



Theu 






The seven cclun 


rmined by HS . 
ns, AtoG, are 


found then Y$ assumes a new 
value, and the FOR-NEXT Q loop 
is visited to decide the best 




t of 6 spaces 


ate two players, this loop is not 








of YS and PS 






made m to e ens D j f 


e a Tha't C not Ck ail 


Playing Hint 
















see if the key 




was selected. It 








traight into the 




computer playir 


g routine. 




of thVcolumn 


Is "checked "to 


winning lines in tnesame go. Of 


make sure that 


is empty. The 


the computer will occasionally 



10 DIM N*<69,4> 

20 LET Y*="l" 

30 LET S1=0 

35 LET 1*="" 

40 LET S2=S1 

50 LET A=l 

60 LET B=A+A 

70 LET C=B+A 

90 LET D=C+A 

90 LET E=D+A 
100 LET F=E+A 

110 PRINT "SELECT NUMBER DF PLA 
YERS", ,,"1 OR 2" 
120 LET P*=INKEY* 
130 IF P*="2" THEN GOTO 230 
140 IF P*<>"1" THEN GOTO 120 
150 PRINT ,,"D0 YOU WANT TO STA 
RT? (Y/N)" 
160 LET S*=INKEY* 
170 IF S*="Y" THEN GOTO 200 
1B0 IF S*<>"N" THEN GOTO 160 
190 LET Y*="2" 

200 PRINT ,, "SELECT LEVEL DF DI 
FFICULTY" , , ,"1, 2 OR 3" 
205 SLUM 

210 LET H*=INKEY* 

220 IF H*<CHR* 29 OR H*>CHR* 31 
THEN GOTO 210 
230 LET A*=" ■" 
235 LET R=0 
240 LET B*=A* 
250 LET C*=A* 
260 LET D*=A* 
270 LET ES=fi* 
280 LET Ft=A* 
290 LET G*=A* 
30(2 CLS 



310 FOR J=C TO 16 

320 FOR K=8 TO 22 STEP B 

330 PRINT AT J ,K; "S" 

340 NEXT K 

350 NEXT J 

360 FOR J=D TO 16 STEP B 

370 FOR K=9 TO 21 STEP B 

380 PRINT AT J,K; "W 

390 NEXT K 

400 NEXT J 

410 PRINT TAB 9; "A B C D E F G" 
;TAB 23j " OR 0" AND P$="l" 

420 PRINT AT 8,0; "PLAYER 1 " ; TAB 

23; "COMPUTER" AND P*="l " ; "PLAYE 
R 2" AND P*="2";TAB 4;S1;TAB 28; 
S2 

430 IF V*="l" THEN GDTO 460 

440 IF PJ="2" THEN GOTO 480 

450 IF YS="2" THEN GOTO 1860 

460 PRINT AT 20 , 0; "FLAYER ONE T 
PLAY" 

470 GOTO 490 

480 PRINT AT 20,0; "PLAYER TWO T 
PLAY" 

485 SLOW 

490 IF A*(A)<>" " AND B*(AK>" 
" AND C$(A)<>" " AND D*tA)<>" " 
AND E*(A><>" " AND F* (A) <>" " AN 
D B*(A)<>" " THEN GOTO 4700 

495 IF P*="l" AND (K=I OR YS="2 
") THEN GOTO 560 

500 PRINT' AT 19,9; "SELECT CDLUM 

510 LET I*=INKEY* 

515 SLOW 

520 IF I*="B" AND P*<>"2" THEN 
GOTO I860 

530 IF I*<CHR* 38 OR I*>CHR* 44 

THEN GOTO 510 

540 GOSUB 560 

550 GOTO 510 

560 IF I*= 
EN RETURN 

570 IF ir 
EN RETURN 

5B0 IF It- 
EN RETURN 

590 IF I*="C" AND C*(l) 
EN RETURN 

600 IF I*="D" AND D*( 
EN RETURN 

610 IF I*«"E" AND E*( 
EN RETURN 

620 IF I*="F" AND F* < 
EN RETURN 

630 IF I*="G" AND GS ( 
EN RETURN 

640 LET L*="D" 

650 IF Y*="l" THEN LET L*=" 



AND A*( 



AND A$< 
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660 IF I*="A" THEN LET J*=A* 

670 IF I*="B M THEN LET J*=B* 

680 IF I*="C" THEN LET J*=C* 

690 IF I*="D" THEN LET J¥=D* 

700 IF I*«»"E" THEN LET J*=E* 

705 IF I*="F" THEN LET J*=F* 

710 IF I*="G" THEN LET. J*=GJ 
720 FOB Z=l TO 7 

730 IF J*(Z)<>" " THEN GDTQ 750 

740 NEXT Z 

750 LET 3*<Z-1)=L* 

760 LET R=0 

770 IF YS="1" OR (Y*="2" AND P* 
="2") THEN BOTO 1590 
780 FAST 

790 IF I*=' , A" THEN LET A*=J* 
800 IF I*= n B" THEN LET B*=J* 
810 IF I*="C" THEN LET C*=JS 
820 IF I*="D" THEN LET D*=J* 
B30 IF I*="E" THEN LET E*=J* 
840 IF I*="F" THEN LET FS=J* 
850 IF I*="G" THEN LET G*=J* 
860 LET N*<1)=A*(A TO D3 
870 LET N*<2)=B*(A TO D) 
880 LET N*(3)=CS<A TO D) 
890 LET N*(4)=D*(A TO D) 
900 LET N«<5!=ES(A TO D) 
910 LET N*(fe>=F*(A TO D) 
920 LET N*(7)=G*(A TO D) 
930 LET N*<B)=A*(B TO E) 
940 LET N*(9)=B*(B TO E) 
950 LET N*(10)-C*!B TO E) 
960 LET N*(11>=D*(B TO E) 
970 LET N*(12>=E*<6 TO E) 
980 LET N*(13)=F*(B TO E) 
990 LET N*(14>=G*(B TO E) 
1B00 LET N*<151=A*(C TD F! 
1010 LET N*(16)=B*(C TO F> 
1020 LET N*(17)=C*(C TO F.) 
1030 LET N*<19)=D*<C TO F) 
1040 LET N*(19)=E*(C TD F) 
105B LET N*(20)=F*IC TO F) 
1060 LET N*(21)=G*(C TO F) 
1070 LET N*(221=A*<A)+B*(A>-t-CS(A 
)+D*(A) 

1080 LET N*<23)=A*(B)+B*<B!+C*<B 
)+D*(B) 

1090 LET N*(24)=A*(C)+B*!C)+C*(C 
)+D*(C) 

1100 LET N*(25>=A*<D)+B*(D)+C*<D 
)+D*(D) 

1110 LET N*<26)=A*(E)+BS(E>+C*<E 
)+D*(E) 

1120 LET N*(27)=A*(F>+B$(F)+C*(F 
)+D*(F> 

1130 LET N*(2B)=B*(A)+C*(A)+D*(A 
>+E*<A> 
1140 LET N*(29)=B*(B)^C*(B)+D*(B 



(30>=B*(C) +C* (C) +D*(C 
(31) =B* ( D ) +C* ( D ) +D* ( D 
<32>=B*(E)+C*(E)+D*(E 
C33)=B*(F) +C*CF>+D*<F 
<34)=C*(A>+D*<A)+EJ<A 
(35>=C*<B)+D* (B) +E*(B 



>+E*lB> 

1150 LET 

)+E*(C) 

1160 LET 

)+E*(D) 

1170 LET 

)+E*(EJ 

1180 LET 

>+E*<F) 

1190 LET 

)+F*(A) 

1200 LET 

f+F*(B) 

1210 LET N$(36)=C*(C)+D*(C)+E*(C 

)+F*(C) 

1220 LET N*(37)=C* (D) +D* <D> +E* <B 

)+F$ CD) 

1230 LET N*(3B1=C*(E)+D*(EJ+E*(E 

)+F*(E) 

1240 LET N*<39)=C*(F)+D*<F)+E*(F 

>+F*(F> 

1250 LET N*(40>=D*<m+E*(A>+F*<A 

>+G*(A) 

1260 LET N*(41)=DS(B)+E*<B)+-F*CB 

)+B*(B) 

1270 LET NS(42)=D*!C)+E*(C)+F*(C 

)+G* CO 

12B0 LET N*(43)=D$(D)+E*(D)+F*(D 

)+G*(D) 

1290 LET N*(44)=D*(E)+E*tE)+F*tE 

)+G*(E> 

1300 LET N*(45)=DS!F)+E*(F)+F*<F 

)+G*!F) 

1310 LET N?(46)=D?(A)+E*(B1+F*(C 

) +G*(D) 

1320 LET N*(47)=D*(B)+E*{C)+F*(D 

)+B*(E) 

1330 LET N*(48)=D*(C)+ES(D)+F*(E 

)+G#(F) 

1340 LET N*(49)=CS(A)+DS(B>+E*<C 

)+F*(D) 

1350 LET N*<50)=C*<B)+D*<C)+E* CD 

)+F*(E) 

1360 LET NS(51)=C$<C)+D*(D>+E*(E 

)+F*(F) 

1370 LET N* (52>=BS (A)+C* IB) +D*(C 

)+E*(D) 

13B0 LET N*(53)=B*(B1+C*(C)+D*(D 

)+E*(E) 

1390 LET N*(54>=B*(C!+C* (D) *D*(E 

>+E*<F) 

1400 LET N* <55)=A$ (A) +B* (B) +CS(C 

)+D*(D) 

1410 LET N$(56)=A* IB) +BS<C)+C$ (D 

)+D*(E> 

1420 LET N*(57>=A*IC)+B*(D>+C*(E 

>+D*!F) 

1430 LET N*(5B)=A*(D)+B*(C1+C*(B 

)+D*(A) 



X COMPUTING FEBRUAHY.'IV 



ZX81 



1440 LET N*<59) =A* (E> +B* <D) +C* (C 

)+0*(B! 

1450 LET N*(60) =A* (F> +B* tE 1 +C» (D 

>+D*(C) 

1460 LET NS<61 > =B* (D) +C* I C ) +D*(6 



>+E*(A) 
1470 LET I 



62)=B*(E)+C*(D)+D*(C 
>+E*(B) 

148B LET N* (63) =B*(F)+C*(E) +D*(D 
)+E*(C> 

1490 LET N*(64> =C*(D> +D*(C>+E*<B 
)+F*(A> 

1500 LET N*(65)=C*(E) +D*(D)+E*<C 
>+F*(B) 

1510 LET NS(66)=C* (F) +D*(E)+E* (D 
>+F*(C) 

1520 LET N*(67)=D$(D>+E*<C)+F*(E 
>+G*<A) 

1530 LET N*<68>=DS(E>+E*(D)+F*<C 
)+G*(B! 

1540 LET N* (69)=D*(F)+EJ(E) +F* (D 
)+G*(C) 

1550 FOR J=l TO 69 

1560 IF N*(J)=LS+L*+L*+L* THEN L 
ET R=l 
1570 NEXT J 

15B0 IF Y*="l" DR P*="2" THEN GO 
TO 1800 
1590 SLOW 

1595 FOR J=l TD 5 

1596 NEXT J 

1600 FOR 1=1 TO Z-l 

1610 PRINT AT 1*2+1, 7+(CODE I*-3 

7)*2;" ";AT 1*2+3,7+ tCODE I*-37) 

*2;L* 

1620 NEXT I 

1622 LET K=0 

1624 FOR J=l TO 5 

1625 NEXT J 

1630 IF Y*="l" THEN GOTO 780 

1635 IF P#="2" THEN BOTO 780 

1640 GOTO 1800 

1650 SLOW 

1655 IF Y*="l" THEN GOTO 1730 

1660 PRINT AT 20,0; "COMPUTER WIN 

S 

1670 IF P*="2" THEN GOTO 1690 

1680 GDTD 1700 

1690 PRINT AT 20,0; "PLAYER TWO W 

INS 

1700 LET S2=S2+1 

1710 LET Yt="l" 

1720 GOTO 1760 

1730 PRINT AT 20,0; "PLAYER ONE W 

INS 

1740 LET S1=S1+1 

1750 LET Y*="2" 

1760 FOR J=l TD 10B 

1770 NEXT J 



CAME ^I^M^^ 

1775 CLS 

1780 IF P*="2" THEN GOTO 230 

1790 GOTO 200 

1B00 IF R=I THEN GOTO 1650 

1B10 IF Y*="l" THEN GOTO 1840 

1B20 LET Y*="l" 

1B3B GOTO 430 

1840 LET Y*="2" 

1B50 GOTO 430 

1B60 DIM 0*(4,4> 

1865 IF I*="B" THEN LET K=l 

1B70 FAST 

1BB0 FOR Q=l TO VAL H**2 

1890 IF I*="0" THEN GOTO 1930 

1900 IF Q=l OR Q=4 OR Q=6 THEN L 

ET L*="0" 

1910 IF Q=2 OR Q=3 OR Q=5 THEN L 

ET L*="»" 

1920 GOTO 1950 

1930 IF Q=l OR 0=4 OR Q=6 THEN L 

ET L*="*" 

1940 IF 0=2 OR Q=3 DR Q=5 THEN L 

ET L*="0" 

1950 IF Q>2 THEN GOTO 2050 

2010 LET Q*(A>=" "+L*+L*+L$ 

2020 LET Q*(B>=L*+" "+L*+L* 

2030 LET a*(C)=L*+L* + ,, " + LS 

2040 LET Q*(D>=L*+L*+L*+" " 

2050 IF B<3 THEN BDTO 214B 

2060 LET Q*(A)=" "+L*+" "+L¥ 

2070 LET B*(B)=L*+" "+L4+" " 

2080 LET Q?<D=L*+L* + " "+" " 

2085 LET QS(D!=" "+L?+L*+" " 

2B90 IF D<5 THEN GOTO 214B 

2100 LET Q*(A)=" "+L*+" "+" " 

2110 LET Q*(B)=" "+" "+L*+" " 

2120 LET Q*(C>=" "+" "+" "+L* 

2130 LET Q*(D)=" "+" "+L$+" " 

2140 IF N*(A)=QS(A) OR N*(8)=Q*< 

A> OR N*(151=Q*(A) THEN GOTO 400 



2150 IF A*(BK>" " AND (N*(22)=Q 

S(A) OR N*(55)=Q*(A) ) THEN GOTO 

4000 

2160 IF ft* tC><>" " AND (N*(23>=Q 

*(A) OR N*(56)=BS (A) ) THEN GOTO 

4000 

2170 IF A*CDK>" " AND (N*!24)=Q 

*<A> OR N*(57) =Q*(A) ) THEN GOTO 

4000 

2180 IF A*(E)<>" " AND (N*(25)=Q 

*<A> OR NSI58)=Q*(A> ) THEN GOTO 

4000 

2190 IF A*(F)<>" " AND <N*(26)=Q 

*(A> OR N*<59)=Q*(A> ) THEN SOTO 

4000 

22B0 IF N*<27)=Q*<A) OR N*(60!=Q 

*(A) THEN GOTO 4000 

2210 IF N*(B)=G*(A) OR N*(9)=B*( ► 



ft! OR I 



16)=B*IA> THEN GOTO • 



2220 IF B*(B><>" " AND (N*!28)=Q 

*<A> OR N*(52)=BS!A> ! THEN GOTO 

4100 

2230 IF BJtOO" " AND (N*(29)=Q 

J<A) GR N*(53) =B* (A) ) THEN GOTO 

4100 

2240 IF BStDIO" " AND '(N*(30)=Q 

*<A) OR N*(54>=Q*<A) ) THEN GOTO 

4100 

2250 IF BJIEIO" " AND (N*(31)=Q 

*<A> OR N*(61>=Q*(A> > THEN GOTO 

4100 

2240 IF B*(F><>" " AND (N*(32)=Q 

*(A> OR N*(62)=Q*(A> > THEN GOTO 

4100 

2270 IF N*(33)=Q*(A) OR N*(63!-Q 

*(A> THEN GOTO 4100 

2280 IF N*(C)=D*(A) OR N*(10)=Q* 

(A> OR N*(17)=Q*(A> THEN GOTO 42 
00 

2290 IF C*(B)<>" " AND (N*(34>=Q 

*(A) OR N*(49)=Q*(A) ) THEN GOTO 
4200 

2300 IF C*(C><>" " AND <N*(35>=Q 

*<A> OR N*(50)=D*(A> ) THEN GOTO 
4200 

2310 IF C*(D><>" " AND (N*(36>=Q 

*(A) OR N*(51)=Q*(A> > THEN GOTO 
4200 

2320 IF C*(E><>" " AND (N*(37>=Q 

*(A) OR N*(64)=0*(A) ) THEN GOTO 
4200 

2330 IF C*(F><>" " AND <N*(3B)=Q 

*IA> OR N*(65)=Q*(A> ) THEN GOTO 
4200 

2340 IF N*(39)=E*(A1 OR N*(66)=Q 

*(A) THEN GOTO 4200 

2350 IF N*(D)=B*(A> OR N* ( 1 1 ) =Q* 

(A) OR N*(18)=Q*(A> THEN GOTO 43 

00 

2360 IF D*(B><>" " AND (N*(40)=Q 

*(A) OR N*(46)=Q*(A> ) THEN GOTO 

4300 

2370 IF D*(C)<>" " AND <N*(41>=Q 

*(A) DR N*(47)=0*(A> > THEN GOTO 

4300 

2380 IF D*(D><>" " AND <N*(42)=Q 

*(A> DR N*(48)=Q*(A> > THEN GOTO 

4300 

2390 IF D*(E)<>" " AND (N*(43)=D 

*(A> DR N*(67)=Q4(A> > THEN GOTO 

4300 

2400 IF D*(F)<>" " AND (N*(44)=B 

*(A> DR N*<6B)=Q*(A) ) THEN GOTO 

4300 

2410 IF N$(45)=Q*(A> OR N*(69)=Q 

*(A) THEN GOTO 4300 



2450 IF B»<B)<>" " AND (N*<22)=G 

*(B) DR N*(55)=Q*<B) ) THEN GOTO 

41120 

2460 IF B#<C)<>" " AND (N*(23>=Q 

*(B> DR N*(55>=Q*<B) ) THEN GOTD 

4100 

4>=Q 



2500 IF I 



(27>=Q4(B) THEN GOTO 4 



251B IF C*(BI<>" " AND NSC28)=Q* 

(B) THEN GOTO 4200 

2520 IF C*CC><>" " AND (N*i29)=Q 

*(B> DR N*(52)=D*(B) ) THEN GOTO 

4200 

2530 IF C*(D><>" " AND (N*130)=Q 

*(B) OR N*(61)=Q*(B> ) THEN GDTD 

4200 

2540 IF C*(E)<>" " AND (N*(3I)=Q 

*<B) OR N*<62)=Q*(B> > THEN GOTO 

4200 

2550 IF 0*<FX>" " AND (N*(32)=Q 

*<B) OR N*(63)=Q*(B> > THEN GDTD 

4200 

2560 IF N*<33)=Q*(B) THEN GOTO 4 

200 

2570 IF D*(B)<>" " AND N*(34)=0* 

(Bl THEN GDTD 4300 

2580 IF D*(C)<>" " AND (N*(35)=Q 

*(B) OR N*(49)=Q*(B> > THEN GOTO 

4300 

2590 IF D*(D)<>" " AND <N*<36>=Q 

*<B> OR N*(50)=Q*(B) OR N*(64)=G 

S(B) ) THEN GOTO 4300 

2600 IF D*(E)<>" " AND <N*(37)=Q 

*(B) OR N*(5i)=Q*(B> DR N*<65)=G 

*(B) > THEN GOTO 4300 

2610 IF D*(F)<>" M AND (N*(38)=G 

*(B) DR N*(66)=D*(B) ) THEN GOTO 

4300 

2620 IF N*(39)=Q*(B> THEN GOTO 4 



2630 IF E*(B>- 



AND I 



=Q* 



(B) THEN GOTO 4400 

2640 IF E*(C)<>" " AND <N*(41)=Q 

*(B> DR N*(46)=D*(B) ) THEN GOTO 

4400 

2650 IF E*(D)<>" " AND <N*(4Z)=Q 

*(B) DR N*I47)=Q*(B> DR N*(67)=D 

*(B>> THEN GOTO 4400 

2660 IF E*(E><>" " AND <N*(43>=Q 

*(B) OR N*(46)=G*tB) OR N*(68)=0 

*(B>) THEN GOTO 4400 

2670 IF E*(F)<>" " AND (N*(44)=D 

*IB> OR N*(69)=D*(B) ) THEN GOTO 



2680 IF 



(45)=Q*C 



THEN GOTD ■ 



2690 IF CJ(B)<>" " AND N*(22>=Qf 

(C) THEN GOTO 4200 

2700 IF C*(C)<>" " AND <N*C23)=Q 

♦(C) DR N*(58)=Q*(D) ) THEN GOTO 

4200 

2710 IF CtlDIO" " AND (N*(24)=Q 

*(C) OR N*(59>=Q*<C) ) THEN GOTO 

4200 

2720 IF C*(E><>" " AND tN*(25>=Q 

*(C) OR N*<56)=Q*(C) OR N¥(60)=Q 

t(CI) THEN GDTD 4200 

2730 IF D*(F)<>" " AND <N*(26)=Q 

*(C) OR N*(571=Q*(C> ) THEN GOTO 

4200 

2740 IF N*(27)=Q*(C> THEN GDTD 4 

200 

2750 IF D*(B><>" " AND N*(28)=Q* 

(C) THEN GOTO 4300 

2760 IF D*CC)<>" " AND <N*(29)=Q 

*(C) OR N*<61)=G*(C> ) THEN GDTO 

4300 

2770 IF D*(D)<>" " AND (NS(30)=Q 

*(C) OR N$(52)=B*(C) OR N*(62J=D 

*<CI) THEN GOTD 4300 

2780 IF D*(E)<>" " AND (N*(3l!=D 

*(C) OR N*(53)=Q*(C) OR Nt(63)=Q 

*(C) ) THEN GOTD 4300 

2790 IF D*(F)<>" " AND <N*(32>=Q 

*(C) OR N*(54)=B*<C! ) THEN GOTO 

4300 

2800 IF N*<33)=Q*(C> THEN GOTO 4 

300 

2810 IF E*(B)<>" " AND N*(34)=G* 

tC) THEN GOTO 4400 

2B20 IF E*(C)<>" " AND (N¥(35)=Q 

*(C) OR N*(64)=Q*(C> ) THEN GDTD 

4400 

2830 IF E*(D)<>" " AND (N*!36)=Q 

*!C) OR N$(49)=Q* <C) OR N*(65)=Q 

• ■(C)) THEN GOTO 4400 

2B40 IF E*(E)<>" " AND (N*137)=D 

*(C> DR N*(50)=Q*(C> OR N*(66>=Q 

*(C) ) THEN GOTO 4400 

2850 IF E4(F)<>" " AND <NS(38)=G 



*(C) DR N* C51)=D* (C) ) THEN GOTO 

4400 

2860 IF N*C39)=Q*(C) THEN GOTD 4 

400 

2870 IF F*(S}<>" " AND N*(40)=Of 

<C) THEN GOTD 4500 

2880 IF F*<C)<>" " AND (N*(4i)=D 

*(C) DR N*(67) =Q*(C1 ) THEN GOTO 

4500 

2S90 IF F#(D)<>" " AND <N*(42)=G 

*(C) DR Nt(46)=Qt(C) OR NS(68!=Q 

*(C)) THEN GOTO 4500 

2900 IF F$<E)<>" " AND (N*(43)=Q 

*(C) DR N*(47)=G*(C) DR N*(69)=G 

♦(C)) THEN GOTD 4500 

2910 IF F*(F><>" " AND (N*(44)=Q 

*(C)-'DR N*(4B>=B*(C) ) THEN GOTD 

4500 

2920 IF N*!45)=Q*(C) THEN GDTD 4 

500 

2930 IF D*<B)<>" " AND <N*(22)=C! 

*(D) OR N$(58)=Q*(D) > THEN GDTO 

4300 

2940 IF D*(C><>" " AND <N*(23)=Q 

*(D) OR N*(59)=G*(D) > THEN GDTO 

4300 

2950 IF D*<D)<>" " AND <N*(24>=Q 

*(D) DR N*(60)=Q*(D) > THEN GOTO 

4300 

2960 IF D*!E)<>" " AND (N*(25)=Q 

*(D) DR N$(55>=G$(D> > THEN GDTD 

4300 

2970 IF DJIFIO" " AND <N*(26>=Q 

*(D) DR N*(56)=0*<D) ) THEN GOTD 

4300 

29B0 IF N*(27)=D*(D! OR N*(57)=Q 

*(D) THEN GOTD 4300 

2990 IF E*!B)<>" " AND (N*!28)=Q 

*<D) OR N*(61)=Q*<D) ) THEN GOTO 

4300? /? 

3000 IF E*(C)<>" " AND <NS(29)=Q 

*(D) OR N*(62)=0*(D) ) THEN GOTO 

4400 

3010 IF E*(D><>" " AND (N*(30!=Q 

*(,D) DR N*(63)=D* (D) ) THEN GOTO 

4400 

3020 IF E*CE)<>" " AND (N*(31)=Q 

*(D> OR N*(52) =Q*(D> > THEN GDTD 

4400 

3030 IF E*(F)<>" " AND <N*!32)=B 

*<D) OR N*(53)=Q*(D> > THEN GOTD 

4400 

3040 IF N*(33)=Q*(D) OR N*(54)=Q 

*<D) THEN GOTD 4400 

3050 IF F*(BK>" " AND (N*(34>=Q 

*(D) DR N*(64>=G*(D> ) THEN GOTO 

4500 

3060 IF F*(C)<>" " AND (N*(35)=Q 

*(D) OR N*(65)=Q$(D) ) THEN GOTD 



ZX81 CAME 



(45) =S$ <D> OR I 



3070 


IF 

OR 


F*(D)< 
N*(66> 


>" " AND (N*(36)=Q 
=Q*(D) ) THEN GOTO 


4500 
30B0 
*(B3 


IF 

riR 


F*(E)< 
N*(49) 


>" " AND (N*(37)=Q 
=Q*(D) ) THEN GOTO 


4500 
3090 
*<D) 


IF 
□R 


F*(F)< 
N*(50> 


>" " AND <N*(3B)=S 
=D*(D) ) THEN GOTO 


4500 
3100 
*(D) 

3B90 


IF N*(39) 
THEN GOTO 
IF GSIBX 
OR NS(67) 


=0* (D) OR N*(51)=Q 
4500 
>•• " AND <N*(40)-G 
=Q*(D> ) THEN GOTO 


4600 
3900 


IF 

nR 


G* ( C )< 
N*(68> 


:-" " AND (N*(41)=Q 
= QS (D> ) THEN BOTO 


4600 
3910 


IF 
OR 


G*(D!< 
N*<69> 


,=■" " AND (N*(42)=D 
=Q*<D) ) THEN GOTO 


4600 
3920 


IF 

nR 


EJIEK 
N*<46) 


>» " AND (N$(43)=Q 
=B*<D) ) THEN BDTD 


4600 
3930 
*(D) 


IF 

nR 


G*(FJ<: 
NS (47 


>" " AND iN*(44>=0 
=G*(D) ) THEN GOTO 


4600 









THEN GOTO 4600 
NEXT Q 



3950 
3960 
3970 



4200 
4210 
4300 
4310 
4400 
4410 
4500 
4510 
4600 
4610 
4620 
4700 



4705 BLOW 

4710 GDTB 1760 

9000 CLEAR 

9010 SAVE "ZX-CONNECT 

9070 GOTO 1 



LET T=INT (RND*7) 
GOTO 4000+100»T 
LET IJ="A" 
GOSUB 490 
LET I*="B" 
GOSUB 490 
LET I*="C" 
GOSUB 490 

LET I*="D" 

GDSUB 490 

LET I*="E" 

GOSUB 490 

LET I*="F" 

GOSUB 490 

LET I*="G" 

GOSUB 490 

GOTO 3960 

PRINT AT 20,0; "A DRAW 



PHOTOCOPIES 




■1 be replaced' Well, 



J^'tll :■' 



ZX Computing Photocopies, 

Mo. 1, Golden Square, 
London W1R 3 AB. 

together with your money and we'll do 



It you know the 
appeared i 

the itiberiy 



e name and Ihe issue It 
supply you with a photocopy (or 

ol £1 .50 including postage and packing. 



ZX PHOTOCOPIES 




se send me Photocopies of the k 
j ISSUE ARTICLE 



TWO GREATS FOR THE SINCLAIR QL 



TIMHAKTIteus m 

9t GAMES 

C0MPe NDIUI/l 





Tim Haitnell's QL Games Compendium Exploring the Sinclair QL 

From Tim Hartnell (theauthqr, PCW magazine called An Introduction to SuperBASIC 



Mr Siriclai: : c ■■ hi. n.i r i.imes book lor 


Hera' 


your chance to explore (he potential of 


the QL . 


SuperBASIC, the sopiiiotiirjicd Lmauage supplied 


Not only doe." :' :■_ :i: -,.:. 1. -I -. if f-T rr - ■_■-- lhaii 20 




e Sinclair QL. 


complete ':nr' ■--■ ,-■.;'■' [-•,-..■ - — . «i,-,asi3nd 


Designed to help you write belter, clearer programs, 




Sincla 


.:■■ rBASIC is ; : state of-the-axl pi wraraniiBg 


moving graphics games on your QL 1 




ge, a language wiiicl-. k'H« ns i.-dce with the 




are innova ions o the computer, 






.*.' N''-: ■■■!, ■■,!■:■ ..■ -v-V-l-M |j:;j|ji..llLi[ (' !ri[ II — ; 






, " ■ ro:K:i:i:.'!i-:. '■>■'-■: v.-^-ri.-i. 


ELIZA in which your QL acta a B a psychiatrist andnalks to you 




ands and statements of SuperBASIC in this 


OTHELLO - challenge your QL to a round of Reyersi/Othelln 




M- -'..■.' :..■ :i!.ii r j l .:.y . ; :;~ :;i j:i=i:iuu:ic; :;h:!:-: 
ve from the Spectrum can be directly 

rrt.-i w ibe QL. and show how — as you learn 
w words in the QUs vocabulary -your 


MAGI CLAN'S MAZE high advpr.m-P exploring nuns after ggld 
DETECTIVEQ-uol'Jeihe murder, different each lime it runs. 


iirenV 


STOCKBROKER -j -h.rlli:.|i,i. i: ,j i.uuid'i.jn puis Thousands rn 


progr 


msca:i gi-aduaJy h» -n.ric mois complex and 






ticated, by incoipoiaimg 'he new romiriards 


TRTCT WITH MEPHISTOPHELES - nearly 20K of challenging 






QL RACER - leal-lime moving graphics, in a game few will win 


2K 
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L j?r_i 



USA NEWS 



Across The Pond 

This issue our man in the states, Mark 

Fendrick, compares the spectrum and 

theTIS2068. 




. ,„„ capabilit.,- 
h *mon w™h™Ct^nd™stanXg developed a ...... 

tCsQUND command.) ROMs^OOwtel and can" 



i nnn . (7X B1 I Time, number refers to the left 1 ) 
1 00 liA-B I J, lime* l ^",° ' V. . T .„ T i-in 



■■»» cartridge Software ^ 

the left ID or hinged c 



"chicklef "vlekeys.Whilethis **^^^£°j£} l 5i Earlier m i spoke about ^a ^St^SwSUr^^ 



.Huet^ray, f'om the joystick. This opens up Tir 



and contained a hinged door at many possible uses forms- cassette, and Command ... . tiiijiHiiii 

the right top which would he |0 V stick in a number oi pro J^™^ These Cummand Great SeleCtlOll 

used for cartridge based soft- grams. *.jjwnn*«fn rartridaes would Utilize Hie i„« ni , „f 

s^jsas-w -.SESSS asi-rfc-EK »rrffisS 

ssriia.tShS!Staa "SHffSiS rSsvss's" „»,. F .„„„ 

iBthalthaspBCBbarSBBfnstObB program to ump to " ne *\ bQard wol]kl be encase d in a P .o.B°x2392 

-dead" on the ends, and must any error is en^ . 2 ?g .^ ._, ,. |r| . h ( ,, i9 „, hH SecBut:l|s New Je , se¥ 

he hit cost: to t>>'- '.'Bi-:r-..- TIi.t LhK HtSLi '.II.- ■» ■ i.„™Hinmilwf:iimmaiid Car rnnoj_nS93 



s ports which are ON ERR CONTinue. caus 
i a new STICK com- program lo go back to tl 
IASIC. The final- where the error took 



^SPECTRUM REVIEWS! 



Spectrum Arcade 

David Harwood, our latest addition to 

the zxc team, continues his quest for 

the perfect arcade game 



Cyclon Attack 



for 'Secnd To None) have pre 
duced a 3D Space Battle for tfi 
48K Spectrum called Nei 



K-Tel ace ve 

ire the public 



catch sight o" 



■o got a friend Spud las in 



INSTRUCTIONS - 70% 

PRESENTATION - 75% 

ADDICTABILITY - 75% 
VALUE FOR 

MONEY - 95% 

ZXC FACTOR - 7 



scheme lor miir-.y LiiMi?n:i 

andhitaTelewsion'ihjt's 
to Channel 4, you score ai 



i in strength depen- 
ung on use), laser status and 

There is a sight in the centre 



them at £5.75. 

crazy caverns 

The first of the BT softw, 

Cra2y Caverns, which fits 
the 16K Spectrum fsome 



ODUS and before I I 



Keys can be 



irling graphic display befor 
- main program is loaded. 
A 1 6K cassette is noticeably 



■s available, 
this game is compatible with any 



only real difficulty is to stop the 
mutant llamas escaping and not 
to get Spud. As long as you stay 

clear from any object leaving the 



efine the keys and 



first class arcade game with ex- 
cellent graphics and realistic 

INSTRUCTIONS - 95% 

PRESENTATION - 100% 

ADDICTABILITY - 95% 
VALUE FOR 

MONEY - 90% 

ZXC FACTOR - 9 



is usual fumbling for 



you need to stop the countless 
objects from climbing to the out- 






reaches 0, a life was lost instead 

level. There might be a target 
number of objects before they 

this game has got any faults. 

Although the graphics are 



INSTRUCTIONS - 80% 

PRESENTATION - 75% 

ADDICTABILITY - 75% 
VALUE FOR 

MONEY - 99% 

ZXC FACTOR - 8 



ne from Bug-Byte 

a Kung-Fooist and 

wn (dead? I don't 

rgive the lack of 
ms, but there are 



r player one with ^ 
eys for player 2. ^ 
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j Kempston, but the 
ooard. 
style, with Otil .,1 11. rl 



icon/off fa 
to play el 



o differe 
;r against t 
9C player. F 



The replay 



INSTRUCTIONS - 70% 

PRESENTATION - 70% 

ADDICT ABILITY - 70% 
VALUE FOR 

MONEY - 75% 

ZXC FACTOR 7 



Hyperaction 



First of all, a minus. In these 
days of first impressions etc, 
etc, etc, an introductory screen 









INSTRUCTIONS - 65% 

PRESENTATION - 75% 

ADDICTABILITY - 85% 
VALUE FOR 

MONEY - 80% 

ZXC FACTOR - 8 



and correctly judge 



id attempt any level of jump 



Eddie Kidd Jump 
Challenge 



MSX Computers (not Spectrui 
Plus?! for prizes and runners 1 
getting a poster of Eddie Kit 
IWOW!). A good idea whic 



eluding excellent animated 


als a o^mpre D sses a the player' with a 


achieved within the satety and 
comfort of your own home, the 


graphics and realistic sound all 


dust. A bit of a no-goer for me, 


taste of the game to follow. 


Eddie Kidd Jump Challenge is a 


This game has got various 


new game for the 48K Spec- 






screens, although I only manag- 


trum, putting you in the driver 


INSTRUCTIONS - 90% 


INSTRUCTIONS - 70% 




seat of your own motorbike. 


PRESENTATION - 90% 


PRESENTATION - 95% 






ADDICTABILITY - 85% 


ADDICTABILITY - 70% 


fingers or joysticks should get 




VALUE FOR 


VALUE FOR 






MONEY - 80% 


MONEY - 75% 


Vou are a spider with only 6 




ZXC FACTOR - 8 


ZXC FACTOR - 7 


legs, I suppose the Spectrum's 
graphics handling made the 


L>Se?<5* 1 








Sir Lancelot 


faced initially with a grid, which 
turns into a random maze after 


^rSf lJ> 1 


CRAZY CAVERNS AND 
EXODUS: 


Another game for the 16K Spec- 
trum Ihoorayl) is Sir Lancelot 






FIREBIRD SOFTWARE, 






WELLINGTON HOUSE 


from Melbourne House, so a 






UPPER ST. MARTIN'S LANE, 


good quality game can be ex- 


acorns and mushrooms along 




LONDON WC2H 9DL 




the path of the maze with the 




PRICE: £2.50 










rapidload, which is supposed to 






CYCLON ATTACK; 


spaed up loading times by half. 






A&FSOFTWARELTD., 


This is a very good idea for 4BK 




mort«|^^^^^^^^| 


UNIT 8 


games [why didn't they adopt 






CANAL SIDE INDUSTRIAL 




doing this and they have been 


You are Eddie Kidd, who we 


ESTATE. 


no real need for this with a 1 6K 






WOODBINE STREET EAST, 


game and I did not notice any im- 






ROCHDALE, 








LANCASHIRE. 


Unfortunately, this is another 


to form different paths, but you 


take the Jump Challenge to gain 


PRICE: TBA 






a world record. 






acorn onto a ZX or a Pacman as 


Initially, before jumping over 


KUNG-FU: 


others. Can we possibly have 


yuu wi'ilosealife. 




BUG-BYTE. 


something else please? 




to jump over barrels with a BMX 


98-1 00 THE ALBANY, 








OLD HALL STREET. 


go through 24 rooms in the 




this, you graduate to the motor- 


LIVERPOOL. 




playing. You need to design your 


cycle, with the controls of 


PRICE: TBA 
















SIR LANCELOT: 




ing pacmen in the first screen, 


you a realistic approach of riding 


MELBOURNE HOUSE 


gather everything in the room 


by moving the wall and then 
gathering the ZX's, 


^When you have left tha ramp 


PUBLISHERS 

39, MILON TRADING ESTATE, 


The same idea is on screen 2, 




ABINGDON, 




but there are Arctic Jellyfish in- 




OXON. 


The action is fast, as you 


stead of Pacmen and this time 


'l cannot really say much 


PRICE: E6.95 


move Sir Lancelot around with 


you have to cover all the blue 


about this game as il totally 




for left, P for right and CAP 






EDDIE KIDD JUMP 


SHIFT to jump. 






CHALLENGE: 




can move walls etc. 










considered while attempting a 


MARTECH HOUSE, 






jump, eg. speed, length of run 


BAY TERRACE, 








PEVENSEY BAY, 


sound are alright, but nothing 


trying to get onto screen 3. 




EAST SUSSEX. 


MM The largest letdown ,s 


There is Quite a bed point in 


to get a feel for the bike and learn 


PRICE' £6.95 
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POWERFUL AND INEXPENSIVE BUSINESS SOFTWARE 
FOR ZX81, T/S1000 and T/S1500 COMPUTERS 
ZX-TEXT ZX-CALC ZX-CALENDAR 




HANDLING /PROGRAM 



A.F.R. SOFTWARE - 1605 Pennsylvania Avenue, No. 204 - Miami Beach, Florida 33139 

(305)531-6464 




BOOK NEWS 



maths fun. Readers do not have in the cms; 

the Sinclair Spectrum; the fit:.* maticel prli 
chapter (optional) is especially "iquos - i 



Aduenture Planne 



sent in by programmers hoping to win one o 
off Bred. 

• MR CHIPS COMES HOME- Micros and Ho 
Bryan Skinner and Mike Gerrard (£7.951 is a c 
using a micro for education at home. The 
comprehensive software review section divir. 

Computer News, and Mike Gerrard is a regul 
Which Micro? and Personal Computer News. 



fi of 01 



nputei 



■ning ti 



Publishers Li 

Two for the common Spe:-lr.ni, ■, 
anr.iallal ■'■[. 'jr.. each Gruilt for Ire ; 

In fact Sinclair Research were so 
separately forE4.95). 



Computing: The golden a\ 



■ four for the Spectrum 
pressed they got them 



Publishing Co Ltd. 
titles are self explanati 



n looking ioi at £6.95. Alsc 



Increasing market, "25 Programs for the Sinclair ZX Mcrodriv 
Multi -uaei Games for the Spectrum". 

Available for £5.95 and, interestingly, not for sale in Canada! 

• Ian Stewart takes a jokey approach to computing in his 
Gateway to Computing with the ZX Spectrum hooks 1 a I 
Golly Jennings, aren't compu^i hori. w.\^-. ..i-uing length?! The 

Anyway, its puii'iiihr-il i>v Shiva fur I' 4 :.) r < ..ir ii I ns big, bright and 



OLEVELS 

nc; just revision but also tuition 




each subject only E7.95 inc p/p 

LOGO, FORTH 
PASCAL & C 



each language only £5.95 inc. p/p 

GCE TUTORING DEPT.d 
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SINCLAIR CLINIC 

COMPLETE REPAIR SERVICE 

For advice and help ring or visit us al our Microcomputer centre. Contact. JOHN WOOD 



HARDWARE 


Spectrum 48K 


* MONITORS 




SOFTWARE 


Prob. thelargeslselec. in Lanes. 


* BOOKS 


100 Titles 


UPGRADES 


Memory issue 2 and 3 


* JOYSTICKS 




KEYBOARDS 


DKtronics fitted from £35.00 


* MODEMS 


Prism VTX5000 


MICHODRIVES 


+ Interface 11 


* PRINTERS 




BLANK TAPE 


C10 - C15 - C20 


• RD 


Digital Tracer 



JUST A PHONE CALL AWAY 

ales, service ana repairs. All postal charges a 



P. V. TUBES 

Dept ZX, 104 Abbey Street, 
Accnngton. Lanes BBS 1EE. 
Telex: 635562 Griffin tor PV 



Q 



Telephone: 
(0254) 36521 
(0254) 32611 



ACORN — BBC — SANYO — COMMODORE — Authorised Dealers 



An Argus Specialist Publication 
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CENCALC 



m uruiidiiT. program rrom uavia r nn 
Carmichael of Glasgow 




half of the line. All 


Automatic subtotalling takes 
place where this will clarify the 
display. 


This program has been devised 


"typo" 


: Flashing. "T" 


Where the screen is filled in 


so That the ZX Spectrum and ZX 




cursor displayed 












initially. Simulates 




the following 


delete cursor is given as for 


and annotate a wide range of 
















key entries (except 


"N" 


Cursor right goes 


filled in 'calculator' sub-mode 


necessity of having to write 




for those below). A 






the copy/new page sequence is 


specialised prorams for each 








mode A flashing 


automatically initiated. 


case. The program operates in a 










2, 3 or 4 columns can be 


number of different modes 
















column 25 and a 












double beep at 




marking the print 




The main operating modes 




column 30. The 








Iwith their appropriate codes) 








Provided that no 


umn always being 'd'l. Column 














"type": Typewriting mode 




nrnttJATbOtWrn 




progress the key 


systematically entsred land cor- 










Left" will move the 


rected if necessary). 


facilities in columns 1-30 of 












the display with various 










This can be any arithmetical ex- 




Special key entries (with shift 






pression up to 30 characters 


"cole": Calculator mode 


where app 


opriatel are:- 




screen^HerViTcan 


long but must use the code let- 
ters of the columns. The com- 


facilities similar to the above 


DELETE' 


: Auto repeat 




be used to delete 








backspace/delete 






ly the right hand side of the 


while allowing the right hand 


'ENTER' 


tAutMPMtnM 




"Cursor Right" will 


The calculator is normally set 




'EDIT' 


: Gives "Enter 








change is possible between 










places but the opportunity is 


the typing and calculating 








of the screen. It is 




sub- modes. 


■STOP' 


: Stop program 




not possible to go 


Entry prompts will now ap- 


"table": User defined for- 


'Cursor 














: Gives line delete 




sub-mode directly 












with the " + " 


entered. Entries with more than 










cursor on the right 


seven characters will be refused 


with up to 3 variables. Op- 




0). 






land beeped). Any non numeric 






deleta-cursor the 








Two other modes are available: 


following 1 


ay entries (with shift 
opriate) can be used. 


Calculator' sub 
mode 


be accepted (for reasons noted 
below) . The opportunity is given 




Cursor Up 








computation of the value is col- 


"copy": Copies the screen 




The promp 




umn (d) is carried out. Non 






direction 


or operate 
















provided the column is not being 


"newpaga": Copies the 


■DELETE' 


Deletes whole line 


character long. Spurious entries 




pletiDn scrolls the display to 




to the right of the 


will be beeped. 

Relevant operators are: 


umn la) can be used as columns 












used for compulation will result 


itiafeBd^ntheprogramlsolfratTn 


'**" 


typewriter state 
with "T" curspr on 


" »" 


for addition, 
for subtraction 
for multiplication. 


in an error, As in "calc" any total 
numeric display will be printed 


ttop^a^AwStarw^ 




tjetottettBtTtOf 


"+'%" 


for division. 


as asterisks (with appropriate 
beeps). 












After each line the opportuni- 


by using the command GOTO 


NOTE: Wh 














reached either by 




calculates % and 


calculation or to stop and if the 


0" running the D'ogram the 




ng or by use of the 












mm and the screen 




running total. 


umn (d) isgiven, Unlike the inter- 


will eppea- sue :r«- ^|i|:-.:>n..-.t 


li'un-t 'Sc 


eenfull — goto next 








code s-ould be entered from the 


page' " wi 








column Id) can be displayed in 


keyb.iard T- u compote' will not 


s pressed this prompt will 




symbol " ") 






d seppear 




"total" 






beep [0 «id:ain i'b tact, (In 










within the range of the com- 










sub-mode. 


puter. On completion of all 












calculations the computer dis 






page sequence is 


Notes 




plays the 'Enter required mode' 




















The calcul 






Detailed instructions for each 




Flashing 'N' cursor 




h displayed in normal 




mode are as follows: 


sub-mode 


shows initially. 


notation. 


*"""• """"""" " 


'3&'Su£SSS%L\ 



■a8K SPECTRUM DOMESTIC! 



automatically Sive a new pa> 

copy/new page sequences I 
lake place at line 19 end thee 
rent column headings will be c 
played automatically at the I 
of the new pege. 

Technical notes 



only happen w 
: Determines 



(Line 9700) if 



mode, (if then 


variables 


prompted : if 1 


bS Gen 


prompted). 


dS (4,7) Col 



of certain 

operators. If ther 
no subtotal ling 
takes place. The 



Line 9800 Contr 

decin 

Line 9810 % fui 



1 REM "GENCALC-1984" 
10 CLE : PRINT AT l,0;"Progri 
loaded"|AT 3, 0; "Please stop rt 
order and wait" 
20 PAUSE 100 
30 LET no=0: LET yes=l: LET | 



ge-1: LET 


nonpaae 


=9600: 


-LET 


copy 


=9300: LET copyok 


=9410: 


LET 


infp 


=9420! LET scroll 


=9430: 


LET 


tab I 


eok=9440 


LET co: 


5dk=9450: 


LET d 


pok=9460 


LET noc 


heck =9700 




40 LET 


cur5f=0: 


LET n 


otec 


=0: L 


ET dp=6: 


LET x = l: 


LET y 


=i: 


LET m 


ode=500: 


LET type 


=1000: 


LEI 


calc 


=2000: LET subt=3400: LET t 


able= 



45 Dill f$<32> 

50 CLS : PRINT AT 4,1 

calculation";at 6, iz; "program" ; 

AT 8,2;* davld fm rarmichael 
1934) ■ 

60 PRINT AT 12,4; "Input instru 
ctions will'IAT 13,4; "appear in" 
i FLASH 1JAT 13,14! "flashing"! F 
LASH OiAT 13,23! "mode";AT 15,4!" 
Other Instructions and"; AT 16, 4i 
"questions in plain text" 

70 PRINT AT 18,2; "Answer quest 
ions by pressing"!AT 19,l;"'N* f 
or "NO" and 'V for 'YES' - 

80 PRINT ttllTAB 3;;"To continu 
e press any key": PAUSE 
90 CLS 

400 REM **page no** 

410 LET X— II LET y=l ! PRINT AT 
0,24; "page "{page 

500 REM **mrjde-sel!>ct fen" 

510 BEEP .05,20: INPUT FLASH 1 
; "Enter required mode* I FLASH 0; 
" ■; LINE a* 

520 IF a*="type" THEN GO TO ty 



THEN GO ' 



pe 

330 IF a*=' 



540 IF a*="table" THEN GO TO t 
able 
550 IF *«="copy" THEN PRINT AT 
x,yl FLASH 0} ■ ": GO SUB copy 
560 IF a*="newpage" THEN GO SU 

570 REM Kspace for other tnodt>« 
** 

990 BEEP .1,10: GO TO 500 
1000 REM **type node** 
1010 PRINT AT x,yl FLASH l'"T"! 
PAUSE 

1020 LET a«-INKEY«: IF a»="" THE 
N 00 TO 1020 
1030 BEEP .003,2 
1100 REM IfconlrolsH 
1110 IF ••-CHR» 8 THEN GO TO 13 
00 

120 IF »«-CHR* 12 THEN GO TO 1 

00 

130 IF »«-CHR» 13 THEN GO TO 1 

00 

140 IF a»-CHR« 7 THEN 00 TD no 

190 IF a*-CHRS 226 THEN STOP 
200 REM «*type** 

210 IF y-30 AND x<21 THEN PRIN 
AT x,y|a«|AT x*l,l| FLASH 1I"T 
: GO TO 1230 
213 IF y"31 AND x-21 THEN GO T 
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a 1020 


1380 LET bS-INKEYS: IF b*-a» THE 




1220 PRINT AT x,y|a»|AT x,ytl| F 


N GO TO 1580 




LASH 1|"T" 


1390 GO TO 1330 




1230 LET y-y+1 


1600 REM Hcursor up** 




1240 IF y-23 THEN BEEP .03,15 


1610 IF x-l THEN GO TO 1590 




12S0 IF y-30 THEN BEEP .03,13: 


1620 PRINT AT x,0|- "(AT x-l,0| 




PAUSE 10: BEEP .03,13 


FLASH 1| •#* 




1260 IF y-31 AND x<21 THEN LET 


1630 LET x-x-1 




y-1: LET x-x+l: GO TO 1280 


1633 BEEP .03,23 




1270 IF y-31 AND x-21 THEN BEEP 


1640 LET b*-INKEY«: IF b*=a* THE 




1,131 GO SUB scroll: IF ans-yea 


N PAUSE 




THEN GO BUB nenpagc! PRINT AT 


1650 GO TO 1330 




x,y| FLASH 1| - T- 


1660 REM **cursor down** 




12B0 LET b«-INKEY«: IF b*->* THE 


1670 IF x-21 THEN GO TO 1390 




N GO TO 12B0 


1680 PRINT AT x,0|- ■ 1 AT x+1,01 




1290 GO TO 1020 


FLASH 1| ■*■ 




1300 REM MntHlinHH 


1690 LET x-x + l 




1310 BEEP .03,13 


1695 BEEP .05,25 




1320 IF x-21 THEN PRINT AT x,y) 


1700 LET b*=INKEY«: IF b*-a* THE 




' -: LET y-31: PRINT AT x,y) FLA 


N PAUSE 




SH l|"T"l BO TO 1270 


1710 GO TO 1530 




1330 PRINT AT x,yl FLASH 0| ■ ■[« 


1800 REM **line deleter** 




T h41,1| FLASH 1|"T' 


1810 PRINT AT x,li - 




1340 LET x-x+l: LET y-1 






1350 PAUSE 3 


1820 LET b*=INKEY«: IF b9=a* THE 




1360 00 TO 1020 


N GO TO 1620 




1400 REM WbackBpice/delftHW 


1830 BEEP .1,10 




1410 IF y-1 AND x>l THEN PRINT 


1840 GO TO 1530 




AT x,l|* "|AT x-1,301 FLASH ll'T 


1830 REM **clear delete/cursor** 
1860 PRINT AT x,0|- ■ | AT x,ll FL 




1420 IF x-l AND y-1 THEN PRINT 


ASH l; "T" 




AT x,y+l|« -1AT x,yl FLASH lf*T" 


1865 LET y-1 




: BEEP 1,13: GO TO 1020 


1870 LET b$=INKEY«; IF b*-a* THE 




1430 IF y<>] THEN PRINT AT x.yl 


N GO TO 1870 




" "(AT x,y-l) FLASH 1) *T" 


1880 BEEP .1,10 




1440 LET y-y-1 


1890 GO TO 1020 




1430 IF y-0 THEN LET y-30: LET 


2000 REM **cald mnde** 




x-x-1 


2002 LET dp-6 




1460 IF x-0 THEN LET x-l: LET y 


2003 IF y>15 THEN PRINT AT x,y| 
- ■: LET y-1: LET x-x+1 




1470 BEEP .03,10 


2010 PRINT AT x,yl FLASH 1 1 "N" : 




1480 LET b»-INKEY«: IF b*-a« THE 


PAUSE 




N PAUSE 


2020 LET aS-INKEY*: IF a»»" THE 




1470 00 TO 1020 


N GO TO 2020 




1300 REM **delete /cursor** 


2030 BEEP .003,2 




1310 PRINT AT x,y|- MAT x,0| FL 


2100 REM **controls** 




ASH It"*' 


2110 IF a*=CHR» 8 THEN GO TO 25 




1320 LET bS-INKEY*: IF b*-a« THE 


00 




N 00 TO 1520 


2120 IF »»-CHR« 12 THEN GO TO 2 




1330 LET al-INKEY*: IF «•■«■■ THE 


400 




N GO TO 1330 


2130 IF aS-CHR* 13 THEN GO TO 2 




1340 IF a*=CHR* 9 THEN GO TO 18 


300 




50 


2140 IF a*-CHR« 7 THEN GO TO no 




1550 IF aS-CHR* 10 THEN GO TO 1 


de ■ 




660 


2130 IF a«-CHR* 9 AND notec-0 TH 




1360 IF a*-CHR* 11 THEN GO TO I 


EN GO TO 3000 




600 


2135 IF a*-CHR» 9 AND notec-1 TH 




1370 IF a*-CHR» 12 THEN GO TO 1 


EN PRINT AT x,y| ■ * 1 AT x,31I FL 




800 


ASH !!•<■: GO TO 3160 
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2190 IF a*=CHR* 226 THEN STOP 

2200 REM MnottM 

2210 IF y«15 AND x<21 THEN PRIN 

T AT x,y|a»|AT x*l,ll FLASH 1|"N 

" : GO TO 2230 

2220 PRINT AT x,y|a»lAT x,y+H F 

LASH II "N p 

2230 LET y-y+1 

Z240 IF y-12 THEN BEEP .09,15 

2230 IF y-13 THEN BEEP .09,13: 

PAUSE 10: BEEP .03,13 

2260 IF y-16 AND x<21 THEN LET 

yi: LET X"X+1 

2270 IF y-16 AND x>-20 THEN BEE 

P 1,13: GO SUB scroll: IF »m»yi 

■ THEN GO EUB neHpag*: PRINT AT 
x,yl FLASH 1| "N" 

22S0 LET b«-INKEY«: IF b*-a« THE 

N GO TO 2280 

2270 GO TO 20Z0 

2300 REM HneHllniH 

2310 BEEP .03,13 

2320 IF x-20 THEN PRINT AT x,yl 

■ ■: LET y-16: PRINT AT x,yl FLA 
SH ll-N": GO TO 2270 

2330 PRINT AT x,yl" "(AT x*l,U 

FLAEH 1| "N" 

2340 LET x-x+l: LET y-1 

2390 PAUSE 3 

2360 GD TO 2020 

2400 REM Wbackspace/delete** 

2410 IF y-1 AND x>l THEN PRINT 

AT X,l|" "IAT x-1,131 FLASH 1I"N 

2420 IF x = l AND y-1 THEN PRINT 

AT x,y+H* "IAT x,yl FLASH 1|"H" 

: BEEP 1,13: 00 TO 2020 

2430 IF yOl THEN PRINT AT x,yl 

- "IAT x,y-ll FLASH 1|"N" 

Z440 LET y-y-1 

2490 IF y-0 THEN LET y-13: LET 



2460 IF x-0 THEN LET 



LET y 



2470 BEEP .03,10 

24G0 LET b*-INKEYC: IF b*-a* THE 

N PAUSE 

2490 60 TO 2020 

2900 REM **delete /cursor** 

2310 PRINT AT X,yl p "IAT x,0| FL 

ASH 1 I " * ■ 

2520 LET b»-INKEYtJ: IF b*-a* THE 

N GO TO 2920 

2930 LET »»-INKEY»: IF a«-"" THE 

N GO TO 2530 

2540 IF aS-CHR* 9 THEN GO TO 28 

50 



10 THEN GO TO 2 



THEN GD TO 2 



2360 IF aC-Cl 

600 

2370 IF a*-CHR» 12 THEN GO TO 2 

800 

2380 LET bS-INKEY*: IF b»-a« THE 

N GO TO 2580 

2390 GO TO 2330 

2600 REM **curSor up** 

2610 IF x-1 THEN GO TO 2390 

2620 PRINT AT x,0l ■ " t AT x-l,0| 

FLASH 1 I " * " 

2630 LET x=x-l 

2635 BEEP .03,23 

2640 LET b*-INKEY«: IF b*-a* THE 

N PAUSE 

2630 GO TO 2530 

2660 REM **cursor down** 

2670 IF x-21 THEN GO TO 2590 

2680 PRINT AT x,0l" 'IAT x+l,0| 

FLASH II ■+■ 

2690 LET x-x+1 

2693 BEEP .05,25 

2700 LET b«-INKEY»: IF b*-a* THE 

N PAUSE 

2710 GO TO 2530 

2800 REM **lina delete** 

2810 PRINT AT x,ll ■ 

2820 LET b«-INKEY»: IF b«-aC THE 

N GO TO 2820 

2830 BEEP . 1 , 10 

2840 GD TO 2530 

2830 REM **clear delete /cursor** 

2860 PRINT AT x,0l " " I AT x.ll FL 

ASH II "N- 

2865 LET y-1 

2870 LET b*-INKEY»: 

N SO TO 2870 

2880 BEEP .1,10 

2890 GD TO 2020 

3000 REM **calculator*« 

3010 REM ** no. and node ** 

3020 LET c*-""': LET cursf-l: LET 

subt4-0I LET calcf-0 
3030 PRINT AT x,yC ": PRINT AT 
x,31I FLASH »■'<- 
3033 REM #* nunber entry ** 
3040 INPUT FLASH II 'Enter nunbe 
r"l FLASH 01 • "I LINE a»: GO SUB 

nochech: IF no+-l THEN BEEP .1 
,13: GO TO 3040 

3050 IF LEN a*>8 THEN BEEP .2,2 
01 BEEP .2,20: BEEP .2,20: BEEP 
.2,20: GO TO 3040 

3100 IF a»Cl)<>--" THEN PRINT A 
T x, 221 aS 



IF b*-a* THE 



jq8K SPECTRUM DOMESTIC! 



THEN PRINT AT 



3105 IP aS(l)> 

x,21ta* 
3130 LET c*=c«+a« 

3140 PRINT AT x,31|- "I LET X-X+ 
IE PRINT AT x,31| FLASH ll"<- 
3143 IF x>«21 THEN GO SUB net*p* 
ge 

3147 IF calcf-1 THEN GO SUB aub 
t: LET »ubt*=0 
3190 REM ** operator ** 
3160 INPUT FLASH 1| "Enter opera 
tor'; FLASH 01' "I LINE b* 
3170 IF b*-"note" THEN PRINT AT 

x,31|" •! LET not*c=l: LET yl: 

GO TO 2000 
31B0 IF b*>-tatal> THEN GO TO 3 
300 

3190 IF b»=-sub" THEN LET subt* 
=1: GO SUB subt: GO TO 3160 
3194 IF calcf=l AND notec=l THEN 

PRINT AT x,31;" *: LET X— X*Xt 
IF x>"21 THEN GO SUB r.enpage 
3198 IF calc-f-1 AND notec=l THEN 

GO SUB subt 
3200 IF b*»"«-" THEN PRINT AT x, 
161 "add": LET subtfl: GO TO 331 



3220 IF b*="»- THEN GO SUB subl 
: PRINT AT x, 16] 'mult': LET calc 
*«1! LET subtf^l: GO TO 3310 
3230 IF b*="/- THEN GO SUB subt 
: PRINT AT x,16;"div: LET calcf 
= 1: LET subt<=l: GO TO 3310 
3235 IF x>=19 AND (b*="+% - OR b» 
*>*—%•) THEN GO SUB nenpage: LET 



3240 


IF b*= 


*\ - THEN GO 


SUB sub 


t: Pf 


INT AT 


x, 16; "add%" 




3230 


IF b*= 


-*■ THEN GO 


SUB sub 


t: PRINT AT 


x,16i -ddct%" 




3254 


IF b»= 


i-x" OR b*=--%- THEN 


LET 


5iibt*=01 GO TO 3260 




3253 


BEEP . 


, 10: GO TO 3 


60 


3260 


PRINT AT x,31; FLASH 0i" ": 


LET 


K-x+li 


PRINT AT x,3 


; FLASH 



3265 INPUT FLASH li "Enter pert:* 
ntage'J FLASH 0;" ' ; LINE aC: IF 
LEN aS>5 THEN BEEP .1,10: GO T 
O 3265 

3263 GO SUB nncheck: IF r.o*"'l TH 
EN BEEP .1,10! GO TO 3263 
3270 PRINT AT x,16;a* 
3275 LET f = VAL a*: LET a=VAL c» 



-21 TH 



ASH 0; ■ ■: LET x=x* 
EN GO SUE newpage 

3233 PRINT AT x,31; FLASH !,"<" 

3234 IF bs=" -%" THEN LET *=»-b 
3286 IF b*-"f%" THEN LET a-a+b 
T288 IF a<>0 AND <ABS a>99999999 

OR AES a!. 000011 THEN BEEP .2, 
10: BEEP .2,10! BEEP .2,10: BEEP 

.2,10: PRTNT AT x,22| ■ IHIHir 
: GO TO 3000 
3290 IF SGN a<-.-l THEN PRINT AT 



, 22 5 1 



3292 IF SGU a = -l THEN PRINT AT 
x, 17! ->' ;flT *,21;a 
3294 LET c*=STR* a 

3296 PRINT AT <,31!" ": LET x=x + 
l: PRINT AT «,31; FLASH 1J"<" 
33C0 GO T 3160 
3330 LET ct=L*tbi 
3340 GD TO 3040 
3400 REN ft* subtotal ** 
3403 IF subt-f=0 THEN GO TO 3470 
3410 LET a=VAL c»l LET c*-STR« a 
3420 IF aO0 AND 1ABS a>99999999 
THEN BEEP .2, 



IS: BEEP .2,10! 

.2, 10: PRINT / 
: GO TO 34S0 
3430 PRINT AT : 
3440 IF SGN a<: 

x,2Z;FN d(a> 
3450 IF SGN a- 



3460 PRINT AT 



3465 PRINT AT 

3466 LET subt* 
3470 RETURN 
3500 PRINT AT 
tec=0: LET cur 
3510 LET a=VAL i 
3520 IF a<>0 AN! 

CR ABS a< .0000 

irf: beep .2, 10: 

.2, 10: PRINT A 



„,21;FN d(a 
3550 PRINT 
1 : LET y = f. 



=21 THEN GO SUB newpage 



BEEP 



BEEP 



1 THEN PRINT AT 
THEN PRINT AT 



*: LET c*=" 

(ABS a>99999999 
} THEN BEEP .2, 
BEEP .2,10: BEEP 

THEN PRINT AT 
THEN PRINT AT 



32S2 FRINT AT 



,23:biAT I 



,31( FL 



3?60 IF *=21 THEN GO SUB newpag 

3570 GO TO 2000 

3600 REM ** delete/cursor **" 

3610 PRINT AT x,31i FLASH 1|" + * 

3620 LET b*=INKEY»: IF b*=a* THE 



p8K SPECTRUM DOMESTIC! 



N GO TO 3620 

3630 LET aS"INKEYS: IF a*-" THE 

N GO TO 3630 

3640 IF a*=CHR» 9 THEN PRINT AT 

X,3II" ": LET y«l: BEEP .1,23: 
PRINT AT x,0! FLASH l|'f: GO TO 

2520 
3650 IF aS=CHR» 10 THEN GO TO 3 
770 

3660 IF a*=CHR* 11 THEN GO TO 3 
700 

3670 IF aS-CHR« 12 THEN GO TO 3 
830 

3680 LET b*-INKEY*: IF bVa* THE 
N GO TO 3680 
3690 GO TO 3630 
3700 REM ** cursor up ** 
3710 IF x-1 THEN GO TO 3630 
3720 PRINT AT x,31|" "1AT x-1,31 
I FLASH II "+■ 
3730 LET x=x-l 
3733 BEEP .03,23 

3710 LET b«=INKEY*: IF b*»aC THE 
N PAUSE 
3750 GO TO 3630 
3760 REM #* cursor down ** 
3770 IF x-21 THEN OO TO 3630 
3780 PRINT AT x,31|" " i AT x*l,31 
I FLASH 1| "+■ 
3790 LET x=xfl 
3795 BEEP .03,25 

3800 LET bS'INKEY*: IF b»=a* THE 
N PAUSE 
3G10 GO TO 3630 
3850 REM *» line delete *♦ 
3860 PRINT AT x,16|" 

3870 LET b*=INKEY«: IF b«-a» THE 

N GO TO 3870 

3880 BEEP .1,10 

3890 80 TO 3630 

4000 REM ## table ** 

4009 PRINT AT x,yl" " 

4110 LET x-x*2: IF x>16 THEN GO 

SUB net*page: LET x-2 
4120 INPUT FLASH II "Enter no. o 
* columns req."| FLASH 01' "|col 
b: IF cols<2 OR cols>4 THEN GO 
TO 4120 

4123 GO SUB ccilsok 

412B IF ans-no THEN GO TO 4120 
4130 DIM dSlcali,7): DIM illcglt 
.,71 

4130 IF col>-2 THEN PRINT AT x, 
7| *(»)*! AT x,22l*(d>": LET start 
•3! LET space-8: GO TO 4180 
4160 IF cola-3 THEN PRINT AT x, 
4I"(«>"|AT x,14| ■ (b) -|AT x,24["( 
di'l LET start-2: LET space«3: 8 



O TO 4180 

4170 IF cols-4 THEN PRINT AT X, 

21 * fa.) " I AT x, 10i * (bl P |AT x,18l*( 

el "(AT x,26|"idl": LET start-8! 

LET spac«?=l: GO TO 4180 

4180 LET x=x+l 

4200 REM **col desc I ** 

4210 FOR e=l TO cols 

4220 LET zc B tart*<7+»pace>*(e-l> 

4230 INPUT FLASH 1 I "Enter col. 

descr.'l FLASH 01" "I LINE d*(el 

4240 PRINT AT x,z|d»Ie) 

4230 GO SUB info 

4260 IF ang=no THEN PRINT AT X, 

z| ■ ■: GO TO 4230 

47.80 NEXT e 

4300 REM ** formula ** 

4320 PRINT AT x-2,0)"d=" 

4330 INPUT FLASH II "Enter fornu 

la" I FLASH 01 " d="l LINE b»: IF 

LEN b»>30 THEN GO TO 4330 

4340 PRINT AT x-2, 21b* 

4350 GO SUB info 

4360 IF ans=no THEN PRINT AT x 

-2,21" 

■; GO TO 4330 
4400 REM *■* decimal place* ** 
4410 GO SUB ripok 

4420 IF ans-yes THEN 00 TO 4300 
4430 INPUT FLASH 1| "Enter dec. 
places required"! FLASH 01" * I dp 
4460 IF dp>6 THEN GO TO 4440 
4470 LET dp-INT dp: GO TO 4410 
4500 REM ** enter variables *# 
4505 LET totf»01 LET t=0: LET X- 
x+2 

4310 FOR e=l TO cdls-1 
4520 INPUT FLASH 1; ("Enter • I d* 
<e))l FLASH 01" "| LINE a* 
4330 IF LEN a»>7 THEN BEEP .1,1 
01 00 TO 4320 
4540 LET e»(e>-a» 

4330 GO SUB not'heck: IF naf-1 TH 
EN BEEP . 1 , 20 

4360 LET i=start*(7+space)*(e-ll 
4570 PRINT AT x,2leS(e) 
4580 NEXT e 
4390 GO SUB info 

4600 IF ans-no THEN PRINT AT x 
,01 f*: GO TO 4510 

4601 REM *# calc total *» 

4602 LET a+la9=0: LET bfUg-a: L 
ET cflag-0 

4604 FOR e=l TO LEN b« 

4606 IF b*(e!='a p THEN LET afla 

8-1 

4608 IF b*(e>="b- THEN LET bfla 

9=1 

4610 IF b»(e)="c" THEN LET cfla 
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1612 NEXT e 



4615 


IF co 


s>=2 AND af 




THEN 


LET 


■=VAL e*(l) 








4620 


:f co 


s>=3 AND bf 




THEN 


LET 


b-VAL e»(2) 








4630 


IF co 


5=4 AN 


I ctl 


sg-1 


THEN 


LET 


r=VAL 


e*(3) 








4640 


LET d 


UAL b* 


LET 


t=t 


d 


4650 


LET 2 


start* 


7+sp 


a»l*(rol» 


4660 


IF d< 


AND 


ABS 


d>99999999 



OR ABS d<. 00001) THEN BEEP .2, 
10! BEEP .2,10: BEEP .2,10: BEEP 

.2,10: print AT x,zi " iHHHHHHW i 

GO TO 4910 
4665 IF co!s=4 THEN LET C*=STR« 

d! IF LEN c*>8 THEN GO BUB 310 
0: LET d=a 
4670 IF SGN dO-1 THEN PRINT AT 

K,2;FN did) 
46S0 IF SGN d=-l THEN PRINT AT 

x,i-1;fn dtd> 

4920 GO SUB tableok 

4930 IF an5 = yt?s THEN GO TO 5000 

4960 LET x=x+l: IF x>=21 THEN O 

O SOB nowpage: FOR e=l TO cola: 

LET 2=start* l7+space>#[e-l) S P«I 

NT AT x l XId«(B): NEXT e: LET x-x 



5020 IF INKEY*="y" THEN INPUT ■ 

■: LET x=x*l: GO TO 5045 

5030 IF INKEY*="n" THEN INPUT " 

■: LET t=0! GO TO 5070 

5040 GO TO 5020 

5045 IF tOfl THEN IF ABS t>9999 

9999 OR ABS t <. 00001 THEN LET t 

Dtf = l 

504B IF totf=0 AND cols=4 THEN 

LET c*=STR* t: IF LEN c*>8 THEN 

GO SUB 5100: LET t=a 
5050 IF totf=0 AND SGN t<>-l THE 
N PRINT AT x,z-7; "TOTAL " i AT X, 

z ; FN d ( t ) 

5055 IF totf=0 AND SGN t=-l THEN 
PRINT AT x,i-7| "TOTAL-[AT x,z- 
1| FN d(t) 

5060 IF tot*=l THEN PRINT AT x, 
12; "TOTAL "!t 

5070 LET totf=0: LET x-x + 1 
50S0 IF x>=21 THEN GO SUB nenpa 
ge 

5090 GD TO mode 

5100 FOR *=LEN c» TO 1 STEP -1 
5110 IF eSlfl-"." THEN GO TO 51 



5120 NEXT f 

5130 IF f<>8 THEN LET a-IINT tl 
0-fLEN c*-+-21*UAL c*+.5) ) /10-tL 
EN cS-f-2) 

5135 IF +=3 THEN LET t=INT <t + . 
5) 

5140 RETURN 
9300 REM *# copy ** 
7310 COPY 

9320 GO SUB copyok 

9330 IF ans=no THEN PRINT AT 0, 
C: GO TO copy 
9340 RETURN 

9400 REM ** screen prompts *» 
9410 PRINT Hi; 'Copy 0K2": GO TO 
9500 

9420 PRINT Hi) "Information corn* 
ct?' : GO TO 9500 

9430 PRINT ttljTAB li'Screen +ull 
Go to next page?': GO TO 9500 
9440 PRINT Hi; "Is table calc. co 
raplete?": GO TO 9500 
7450 PRINT Blicolsi" columns set 
ected - OK?": GO TO 9500 
9460 PRINT Hi; 'Maximum decimal p 
laces "idpi" - OK?": GO TO 9500 
O500 IF INKEY*="n" THEN LET ans 
=0: INPUT "": GO TO 9530 
9510 IF INKEY*="y" THEN LET ana 
-1: INPUT ■•: GO TO 9530 
9520 GO TO 9500 
■^530 RETURN 

"600 REM ** neHpage ** 
7605 PRINT AT x,yi" " * 
9610 GO SUB copy 
9620 LET x=l: LET y=l: LET page* 



INPUT AT 22,1 



PRINT 



9640 PRINT AT 0,24;"page " j page 

9650 RETURN 

77-00 REM ** no check ** 

9702 LET dpcount=0: LET no+=0 

9704 IF a*=" THEN LET no* = l 

7705 FOR f=l TO LEN a* 

9706 IF a*C*>="." THEN LET dpco 

■int.=dpcaunt + l: IF dpcDunt)l THEN 

LET no+- = l 
9720 IF a*If)='-" AND (+>1 OR LE 
N a*=l) THEN LET no4=l 
773? IF »*(*)<>*j" AND a* 1 f )< > " . 
" AMD [CODE a*(-f)>57 OR CODE a* ( 
f)C48> THEN LET no*=l 
9743 NEXT * 
7750 RETURN 

7777 REM ** functions ** 
7300 DEF FN dIxl=(INT (10"dp*x+0 
.51 ) /10-dp 
7C10 DEF FN p(x)=(f /100>*x 
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ZX BASIC eaiy-to-use and powerful 



19-45 



£14 



write thfii gamet^Bu't tr'AdTm Denring is*™™' 



PASCAL 
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Tower of 

Hanoi 

Kenneth Baker of 
Southampton has written 
the ultimate version of 
this game in machine 
Code for the 16KZX81. 



s. The object is to 



designed to reject c 



Making Space 



decide that the player is doing so 
badly that it will automatically 
call a restart to The program. 
Restart can be called at any time 
by pressing 'R' r and the only 



To put the player on il 
jhi track, the first few mo» 
e AB AC BC. . . but to w 



might b 
ilayer of hours of hail 
frustration. 

At the end of each 
:aption containing a 

screen. Please rememl 

[irely in Machine Code 



act when the HEX LOADER is 
dated. 



of bytes per number of lines car 
be found by using the formula: 
IIC + 6I/U-6 where C- the 



1 REM 

2 SLOW 

3 RAND USR 

4 REM I 



REM 

PDKE 16541,232 

POKE 16542,4 

LET Z= 16544 

LET V=2B 

FDR N-l TO 139 
' LET T=N 

LET C=l 
: DIM A*<33) 
I DIM A<9) 

PRINT AT 16,0; ' 



INPUT LINE 




i INPUT A* 

. FOR M=l TD 25 STEP 3 

1 GOSUB 50 

I LET A(C)=P 

' LET T=T+P 

I LET C=C+1 

NEXT M 
! GOSUB 50 
; LET D=P 
t LET M=M+3 
) GOSUB 50 
. LET P=256*Q+P 
' IF NOT P=T THEN GOTO 39 
i GOTO 43 

} PRINT AT 18,0; "ERROR IN LIN 
;NjAT 19, B; "PLEASE RE-ENTER" 
J PAUSE 100 
1 CLS 
^ GOTO 20 
5 FOR M=l TO 9 
I POKE Z,A(M) 
5 LET Z = Z + 1 
b NEXT M 
7 NEXT N 

3 PRINT AT IB, 0j "ALL CORRECT" 
f GOTO 54 

i LET I=CODE A*(M>-V 
L LET F=CODE A*(M+1)-V 
I LET P=16*I+F 
S RETURN 
I PAUSE 100 
5 CLEAR 



roflir 



le odd byte successfully enierei 
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Jusl E1 3 .50 will ensure that the next 
six issues will be lovingly wrapped and 
posted to you. Just fill in the form 
below, cut it out and send it with your 
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Infonet Ltd, 
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1 79 The Martowes, 

Hemel Hempstead, 

Herts HP1 IBB, 



Alternatively you can pay with your Access or 
Batclaycard: simply (ill in your card number, sign thi 
form and send it off. Do NOT send your cardl 




ZX Computing Subscriptions, 

Infonet Ltd, 

Times House, 

179 The Marlowes. 

Hemel Hempstead, 

Herts HP1 1BB, 



(tick Das 
appropriate) 



£13.50 forsixissues [ 

£15.00 (or six issues | 

£31.00 for six issues [ 

SI S. 50 for six issues I I 

USA surface mail. ' — > 
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David Nowotnik answers your questions and offers 
advice on your programming techniques. 



saving ensured? 

Dear Dai/id, 



Tinkering with 
Timex 



Charles, 

be necessary on the Spectrum. 

toad and save, try removing the 
save lead when loading and the 
load lead when saving. One 
reader hBs suggested placing a 



AsaowneroftheTim9*2068 I 
find few programs available 
apart from the 20 titles released 
by Times, t would like to adapt 
programs available for the Spec- 
trum for the 2068. Most BASIC 



following available? 

(1 J An assembly language prt 
gram for the 2068 computers 



Calmer ClEARing 

Some times I find that the or 
way I can completely clear 
machine code program from t 
turn off then 



ie206S for editing la 



Ijamsville, USA 



Light Pen 

Dear David, 
Spectrum. Do you t 



got my trouble-free upgrade kit 
from Computer Add-ons 17-9 
Thane Works. Thane Vllls. Lon- 
don N7I: for series i d cost 
£34.50 and for series 2/3 it Is 
£20.50. Fitting is an extra £7. 

Piracy with 
Privacy 



tireiy in BASIC lor the Spectrum 
will work on the 2068. A good 

pears in 'The Spectrum Pocket 
Book' by Trevor Toms (from 



Michel, 

Dk'tronics lUnit 6, Shire Hill, In- 
dustrial Estate, Saffron Waidon, 
Essex, England! sell one for 

phone socket, and is complete 
with software. 

internal RAMpack 



RAMpack 

yc-u advise 



/ent piracy, so sales o 



arrie Wiggins, 
-iedrichsdorf, 
/est Germany. 



Spectrum ROM which sh 
of use to you. 
• 21 Both machines u; 
machine language, 

however I suspect wh 



convenience and use, thenlsug- 
gest you consult the backpages 



thing is 



microdrive copiers. But I offer no 
guarantees over their quality! 

Note. This view is not necessari- 
ly shared by the editors or 
publishers of ZX Computing. 



-.X COMPUTING F6BRUARy,MAHCH 1 



(HARDWARE REVIEW! 



The Key to Success 

Two keyboards reviewed: the old and 
the new. 



The Ricoli 
Electronics 

Keyboard 



Mancompl84 
Keyboard 



topped square plastic pads. Ai 

stick on labels with larger than 
jsual writing, very bright and 

tell me they are considering hav- 
ngthem specially printed on the 



ainkindof finish, ii 

presaions. The 

a boringly follow t 



straightloi 



a functional 



something to suit everybody. 

The keyboard which RICOLL 
ELECTRONICS have brought 
■ the Spectrum " 




Pop quiz 

helps 

multiple 

sclerosis 

research 




Bucks Fizz stars Cheryl Baker 


by Bellflower Soft 


ware and 


summer 


made a contribution to vital 




W.H.Smith&Sonfr 




Stuart Henry suffers fro 




paign to fight Multiple Sclerosis 


the computer gam 


. "Stuart 




3 MS," said Bellflower director, 




Henry's Pop Qui?", 






s David Gordon. "We hope more 


embourg disc jockey Stuart 










Henry witha cheque for E2, 100 


48K Sinclair Sosc 




operates a research fund in h 


: of 'Stuart Hanry's Pop Quiz' so 


in London today (Wednesday! . 






name. "Everyone who hi 




The money has been raised 


knowledge of pop 


TU19IC this 


bought the program so far ha 


. .,o„,l*,„d,v'..' 



Activision 
action 



Activision 


a co 


nps 


y who 
















ed the 




















Endur 




E.R.O., 


PitI;:MI,Riv 




Space Shut- 














;s. Our 


reviewers w 


II hop* 


full' 


explain 



le USA (whic 
robably be a 
erel, and the 




• A superbly packaged and very atmospheric adv 
rived from Palace Software. 

Interestingly called "Valkyrie 17, The Fed Kip| 

n.ght", ■-. has a Jams;, Bond style theme and featu 



ir new range of prograi 



The titles in the series, called Home Discovery, 
The Joffe Plan, a dieting program. 
Know Your Own Personality, from the book of t 
Know Your Own Psi-Q, assesses your Psychic 
Mastermind and Quizmaster, puts you in the hi 

Star Seeker and Solar System, for those interes 

nese are priced at £9.95 each and all have rat 



I .": i r ! . | (■!.:■ in if; "I . . I " i -- - ■ - :=. I i I ; . ■ - - . ; ■ J :■■ .!.,;■ •■ ' ■ :l I ' (JlJ !;. I »■: .1. ■., I l!.,!-:;i. 

will cost you C9.95 or £13.95 for a microdrive version, and i 
neant as one of a series, 'Games designer Macro and routines 
:nd "Teach yourself Machine code" 'being two other titles in th 



Top programmer 
takes the gold 




' How often do your best your cat? 1 
Stuart Systems have 






dahble with 

illy I should be serious, they have produced some ver\ 
ardware IVoice recognition. Speech and sound units 
p by some impressive software and; '' " 

program and of practical use. At £T4 95 



continue 
to confuse! 




, Anirog, CRLandSilve,=un,: 
;:, kjf luc Spectrum are Copter. Handy Andy. Chamber 

s. Pool. Corruption and Galactic Patrol. This I 

"-— ch neglected ZX81. 



wnerio and Knight Lore features 3 D perspective. We'll rush 
■view copies to our drooling reviewer and report next is; 

UMn^Mol rour'se! ° U ' "' V ° U ' "^'^ Sh °°' ' hey *'" f ' 

Another templation - sorry, priie - for players of ! 
sams adventure game The Sandman Cometh. Upfor grabs 

le is a weekend for i*o in p. L1 .-i s ( oi me lucky winner, ccmpi 

The game is in two parts and was devised and written by 

■M)?i.ii ■i ! ..l. 1 |. !v .:;i atlvr:,,!,,,; ^„i f lom ste, 0™ms, B W B B 
Close, Seaford, Sussex, for El 0.95 . 



And HOW for Then they return to the style 

something t°' , ? hl ? 1 ? ,hie ' rB known ^ 

completely 

different 

, , ly-ThesBcost£5.95. 

As fa, as I know the release of And finally (for now") such is 

Akhenat " """V " J °rh- °' "^ "^°"'' "' ' h ' S com ° an V tha < 

Charlie Sugar series uf budget outline yet another 6 two prcf 

programs marks the first ever grams' from them dropped 

■.e-o;n- i-iic , !r ,.,,d,= sryli- tiiime:, ihroniph the Ipiier box 

by thts company. Both look very Barrowquest is another adven- 

ThpJ,ep£d e aU2 SS etch" ^M^SK^ 

S, iZ f/ d ' S rf For? 6, V ° ffy ' Shifl Agreatseleciionofchalleng- 

onari ana mu. |/ig games. 



SPECTRUM CAME 



Patience IV: The wall 

Colin Cooch continues his acclaimed series of card 
games for the Spectrum. 



SPECTRUM PROGRAM 

challenging of the wide range of Eai 

patience games. Though Ob- pack. 
viously the run of cards plays an eleme 

the player makes also affect the our. 1 

in the programme, but briefly we each i 



transferred toanotherstring PS , 
shuffled, and the gaps replaced 



Defined functions to fix position of card or 

Sets colours and CAPS SHIFT. 



1 080-1 1 40 The aces are removed fr< 
1150-1280 This forms a main loop w 



l*l*l'*l*J» 










i rffiH 




.^M.titit 


5 


; 






»^j*j^H 


J*l*jy]yj* 
























VS^ h c^5Kh to Moye7 ENTeft LINE 




variables used 

AS assembled pack 

BS suits 

CS card in play 

DS temporary string 

ES holds four aces 

G5 card immediately before blank 

NS RS Captions 

PS pack of incorract cards 

Q$ temporary string 

ACE slicerforES 
B.M.N.P.Q loops 

COL colourof card 

CflEP location of card to be replaced into pack 

F temporary flag 

RES flag to determine end of game 

ROUND round in play 

X,Y position of card 

21 & values derived from ZS 

Z1 B.Z2B temporary storage of zl ,z2 

Note 

The amount and size of strings 
to be manipulated mean that the 

RAM. 



ed and dealt again. 


1 round is over three then 








(tare ent» 


If game Is to end th 


programmer is directed to 


*cr?rtrHTf-S 


Subroutine to chec 




innn jirr ml Yf >-< f 


length and within t 
The pack is set up a 


e required limits. 

nd shuffled ready for play. 


Y I 1 <-1) : DEr TN W*f 


the programme. 

Graphics DATA. 
Stan save and load 


Option,, teed. 


S'riiirr 


autostart at 9980 


rgraphics will not form. 


in^d no SUB 1913: 



SPECTRUM GAME 



(IN 



♦ 61) 



M: MEYT ", 

icna rnp y=i m ia step 4; prtmt 

AT Y,0[ rAPER tiY/l: MEVT Y 
1060 I ET PDUNI>-ROUMD + 1 : TRIMT AT 

",oi paper 6iTHF55 ■■cm-- to f 
fin pnuHn";ftT 70,0! -pnuNn -ipoumd 

: ITT r-i; FOR y-i TO 18 STFr 1: 
rnp ■<=] rn T". STET 7: TT ATTP ( 

vm/'i-i? tiifn 1 Ft r*=A*(r in c 

10-"0 1 ft r=r>^ : nf~t y: mf-T y: 
1 (inn PFM PEMrtVE AFFS 

runvF the WES. ■ 1 at l, at -please 

PPF5? FMTFR Tn CONTINUE": PAUSE 



! OF 1 



■ENTER COORD! 



II 



7*: GO SUB 1690: GO SUB 1410: 
r A«(FN VIII'^A 1 THEN PRINT 
i "SORRY MOT AN ACE "J PAUSE 10 
INPUT ■■: GO TO J 1 20 

SUB 140P: LET G*=G«+7«: 
1 ET A*(FN Yd TO FN VI)+<D=-" 

" 7 NE-:T B 
1110 PRINT AT 31,0) PAPER 4|* 

!1->0 REM MnvE A FARC 
llfif INPUT AT H.BJ'UHirn TART) Tl 
MfH/F" FMTER ITNE'iAT 1,0J"THEM 
rnj itMH EG.^r • ; 1 THE 7* 
M-'P TT 7*="00" THEN GO TO IISi 



let o*=: 



iin 



12 



*-- * THEN input : 
:ORRY BUT THAT WAS A SrA 

,0; -PI EASE ENTER AGATM" 
H GO Tn 11-p 

AC (FN Y( 1 TO FN YIIi^It 
": LET Z1B-3/I: LET 72B=7Z: 

710 IF C*<11="2" THEM FOR N=l 
O e STEP 2: IF G*1N<1>="A- THEN 

I ET 7*=G»1M Tfl N+i); GO SUB 16 

0: Gn sub 1110: i et NN-M: go to 



Fnp N-l TO 8 STEP 2: LI 
N TO M*l): GO SUB 1690: 
1101 LET H«=FN U«l): IF 



- THEN NEXT Nt IF H«=" 

THEN 00 TO 1260 

■If IF VAL C*t2 TO 3) -VAL HS < 2 

: 11 H ANTJ r*<1)^H«(4l THEN LE 



I ET 71-71B: LET 77=77H: GO 

1110! I ET flSIFW Yd TO FN Y( 
>=r«: 1 ET Y=YH: GO SUB 1290: 



30 GO TO 11 S0 

?0 REM PRINT A CARD 

10 INK VAL C«(H1! PAPER "» 

10 TF F*(11=-T' THEN PRINT AT 

70 TF C«11K>"T' THEN PRINT A 

r , y i c* ( 1 1 i c* ( 1 1 

^0 PLOT V*8, 168- IY*8I : INK 0: 

»W a,s: draw 16,0: ink val c*< 

F r*(1l--S- THEN PRINT AT 

i -RE-; AT Y*2,y; "CD" 

F C«(4)*"D" THEN PRINT AT 

J "EP-;AT Yt2,^J "GH" 

F F*Ml-T- THEN PRINT AT 



I,X 



SAT ' 



I , V| "Mn-iAT y»2,v:i TJP 1 

RETURN 

REM Bl ANK A FARC 

rnp N-t Tn ■%• rRlNT AT Y+M, 

PAPER 41 INK 0| ■ -: NEXT N: 



I IET 



71* 



110 RETURN 
110 REM END A ROUND 
t60 LET ACEs-l'I LET P*="*: LET 
l: FOR M-1 TO 260 STEP ^: IF i 
('=■2- AND (M=l nR «=66 OR M- 
OP M=196> THEN LET F=l: HEX' 

l~*0 IF A*IM TO M+4)* a ■ Tl 

i ft f-p: let p«=p**e«(ace 

iCFH): IET ACE=ACE + ^: NEYT M 
IBP IF P*^E* THEN LET RES-P: 
TO 1600 
190 IF NOT F THEN GO TO 1^70 



■ SPECTRUM CAME 



CI SUB 


t?0: 1ET 


p*= 


ty i : i ft ft« < M 


Tt 


M*4 


XT m: 


r r*- 




THEM 


GO TO 


600 






'3 THE 


1 GO 




1560 


19,0; 


PAPER 


"*l 


TNK 



1*;40 PRIM 
n; -Ynil ARE ONLY SUPPOSED TO HAU 

r -;at ?o,n: -ti-irfe goes if you 

WANT TO CHEAT-iAT ?!,P;-AND KEEP 

going fnter r. ir not ■: go sub 

ISSH IF 7*="" THEM I FT RES= 1 : O 

O TO 1600 

1560 GO SUB 1~'60: FRIMT AT 21.01 

■MI^>))S HUFFLING <.'.(<< 

"; FOR M"=l TO 1: GO SUB 1850 

l"T*fl GO SUB 1-60 

1580 LET CREP=l: FOR N= I TO 260 

STEP 5: IF A*r(4) = - ' THEN LET A 

*tN TO M*41=P«(CREP TO CREP+1): 

I FT CREP=CREP*5 

1590 NEXT N: GO TO 1060 

1600 REM END GAME 

t: paper 6: ink 0: c 



1670 IF RES THEM FOR N-30 TO 1 
STEP -1: BEEP M/100.N: PRINT AT 
I ,31-Mi ■ , ": NEXT M 

16"";0 IF RFS THEM PRINT AT 3,3! ■ 
SORRY BUT YOU DTDN'T MAKE ■ 5 AT 
l.li'TT THAT TIME': IF ROUNDS T 
HEN PRINT AT 4,131*. -EVEN THOUG 
H YOU "SAT 5,10!"HAD -iROUNTJi" RD 
UNDS" 

1640 TF NOT RES THEN FOR N- 1 T 
O 1.(3: FOR M=l TO 6 STEP 5: BEEP 
{ (31-N1 MHDI*(M=1> .N: PRINT AT M 
,Wi FLASH li PAPER 7! BRIGHT 0; 

ink 2;"*: next Mi next n 

1650 IF NOT RES THEN LET N«='GR 
FAT 1 YOU DID IT': FOR N=I TO 17: 
PRINT AT 3,N*5i PAPER 3; INK 7l 
BRTGHT liN*(Mi: BEEP .01, Ni NEX 
T N: IF ROUND'3 THEN PRINT AT 1 
,5; -BUT TOOK -iROUNTl-3;" EXTRA 
ROUND": IF ROUNDS THEN PRINT A 
T 4,781 -S" 

1660 PRINT AT 17,3[ "YOU MAY:-*iA 
T 14,V;-11 PLAY THIS GAME AGAIN" 
i AT 15 T;*21FLAY NEXT GAME ON TA 
TF-JAT f*,*t| "-PRESS I'FY TO CHOOSE 



E TAPE-: LOAD *" 

1690 REM CHECK VALID INPUT 

1-00 TF LEN 7*<^7 THEM GO TO 1? 

1-10 FOP V=l TO 7! TF Z«(VI«" T 

HEM GO TO J-*5fl 

1^70 NEXT V 

1--30 TF CODE 2SHK49 OR CODE 7* 

IIP52 OR CODE 7*171 '65 OR CODE 

7*t21 N "" THEN GO TO 1~'50 

!-40 LET Z1=UAL Z* ( 1 I : LET Z2^CO 

DE 7*171-64! RETURN 

1-50 TMPUT AT 0,0; "ENTRY UNACCTEP 

TAPlF-iAT 1,01"PLEASE CHOOSE AGA 

IN"; I THE 7*: GO TO 1690 

1-60 FOR N-19 TO 71: PRINT AT N, 

■I NEXT N: RETURN 
1—0 INPUT AT 0,0! INK 01 PAPER 
.-J -PRESS ENTER TO CONTINUE 

-; LTME 7*: RETURN 
1788 REM SET UP PACK 
1-90 PRINT AT 3,6! "PREPARING THE 

PACK'! LET ROUND=0: LET P*= " " : 
LET B*-"SDCH": LET D»=" A01202303 
40450560670-S08909T10J11Q12K13": 

LE T E*=*A01S0A01C0A01H2A01D2" 
1800 FOR 0=1 TO 39 STEP 3: FOR P 
-1 TO 4: LET COL=0: IF P=2 OR P- 
■1 THEN LET COL=2 
1810 LET P*=P**D*!Q TO Bt21*B*(P 

1+STR* COL 

1820 NEXT P: NEXT H 

1830 CLS : PRINT AT 7,9! PAPER 5 

I INK li ■OBEFIJHMIJIFOl'i AT 8,9! 

■coGHttLOPKLGHCP-iAT 10,12! PAPER 
71 FLASH 1 i -SHUFFLING'IAT 12,9! 

paper 5: ink li flash 0; m B^ZZIJ 

BHIJEtSB'JAT 13,9!-CDGH!lLGP£LOHr 



40 FOR M-l 
INT (RMDK70 



1=21 + 



A-l) 



1850 TOR N-6 TO LEN P*-5 STEP 5* 
(HINT (RND*4)t: LET C»=P*(M TO 
Nfll! LET P*=F*< TO N-l)+P*IN+5 
TO HCt: BEEP .01, N/10-10 
1860 NEXT n: NEXT m: IF ROUMD>0 
THEN RETURN 

IG^O NEXT N: NEXT M: CLS : LET A 
«-P«; RETURN 

1880 INPUT "PRESS ENTER TO CONTI 
NUE"! LINE Z«: BEEP .05,10: RETU 

1890 REM GRAHICS 

1900 PRINT AT 2, Si "FORMING GRAPH 

IPS": RESTORE Z0""0: FOR N=l TO 1 

e: read R«: for M-0 to 7: border 
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SPECTRUM CAME 



Mr READ R: POKE USR R5 
T M: NEXT N: RETURN 
1^10 REM INSTRUCTIONS 



l"1fl PArER i: CLS 

1910 INK 2: PRINT AT 4,0", PAPER 

11 IMC 4;I*1AT 12, 6i PAPER 6; IN 

i' b; -a game or patience*;at 16,2 

p; "by C.N.GOOCH"; AT 21, Hi" PRE 
SS ANY KEY TO CONTINUE ": PAUS 



INI 



INK . 



'H^C PRIMT '" UNLIKE MANY GAME! 
IF PATTENCE"" THIS GAME DOES t 

PELY PURELY"'" ON CHANCE. YOUR 
CHOICE OP CARD"'" TO BE MOVED U 



7CI6fl PRINT ' " THE GAMF CONST) 

nr THREE "'" ROUNDS. WHEN YOU I 
AN MOVE "•" NO MORE PRESS "00" 
■: GO SUB 1770: CLS : RETURN 
20-0 REM GRAPHICS DATA 
2F80 DATA ■A',2'53, 128,129,1 



. 14 



B90 DATA "D" ,255, 1 , 129, 19: 
11 ,241 ,219 

100 DATA "C", 159, 191 , 191, 
,131, 128,255 



I960 IF 


INKEY* 1- '"" THEN GO TO 1 


9£p 




19-0 PR 


NT AT 20,0! INK 0i PAPER 


5i " 


DO YOU WANT INSTRUCTIONS 




T 21,01 " PRESS "Y" 


"ES OR 


•-N--0 


19BP IF 


IN«EY*="N" THEN CLS : R 


ETURN 




1990 IF 


TMKEY*="V THEN GO TO 2 



2000 GO TO I9""0r 

2010 INK 0: CLS : PRINT ■ " A PAC 
V or CARDS UILL BE DEALT "'" INT 
H FOUR ROWS OF THIRTEEN '■" CAR 
IIS."-" THE ROWS DOWN THE SCREEN 
ARF' - ■ NUMBERED 1 TO 4! AND THE " 
■ r COL UMNS ACROSS ARE A TO M. 



■ ■ CARDS AR 
' " FOLLOWED 
7«70 PRINT 



ETERENCED BY ROW • 

COLUMN EG.3K • 
YOU MUST FIRST OF 
THE REFERENCES OF 



7030 print • " 


THE OBJECT TS TO 


ET FOUR "'" 


ROWS RUNNING FROM 


r TO KING" ' 


" THIS IS DONE BY 


OWING CARDS" 


■ INTO GAPS SUCH T 


AT THE CARD" 


■ TO THE LEFT IS T 


F ONE BEFORF" 


' ■ IT IN ACE TO KI 


r, SEOUEMTE, 


■ " IN EACH SUIT": 


SUB 1'7"'0 





201B CLS I PRINT ' " YOU WILL NOT 
BE ALLOWED TO " ' " MAKE AN ILLEG 
Al. MOVE. IN THE"'" EVENT OF AN 1 
NCORRECT ENTRY"" YOU WILL BE AS 
KED TO ENTER"' * AGAIN. THE CARD 
CONCERNED "" WILL FLICKER ONCE 
TO SHOW "'" THAT AN INPUT WAS RE 



7170 DATA "E" ,255, 128, 129, 131 
5, 143, 139, 191 
2130 DATA "F 1 
241 ,219,253 



,255, 1, 129, 19 



179, 128,255 

50 DATA "H* ,253,249,241,225, 

129, 1 ,755 

60 DATA "I", 253, 128, 131 , 1 

135, 131 , 153 

-■& DATA " J", 255, 1, 193,725,241 



3, 15 



, 141 



2210 DATA "N", 255, 1,57, 125 

53,249,24 1 

7220 DATA "O" , 113, 135, 135, 131 



2240 DATA -S',0, 36,42,42,42,' 
2230 DATA - R",0, "'2,81,84,84, I 



0: BEEP .l,N: PAUSE 10: NEX 

GO SUB 1900: GO TO 1000 

9p SAUF "patienceD" LINE 99 



FEBRUARY/MARCH 1! 



I ZX81 SIMULATION I 



Fad up with thrashing "Grand- 
master Chess" at level ten? 
Why not take on a real live oppo- 

Youroldman - Ed. I You might 



Chess Clock 

use your 2X81 as an impartial time 

keeper when playing that next game of 

chess! The Rev. J H wall of Newcastle 

shows you how. 



- Blitz chess 




I ZX81 SIMULATION I 



52 PRINT "HOW MANY MINUTES TO 
BE ADDED AT EACH TIME CHECK?" 

54 INPUT Z* 

56 IF Z*="" THEN GOTO 54 

58 IF CODE Z*<29 OR CODE Z*>37 
THEN GDTD 54 

60 LET Z=VAL Z* 

62 PRINT Zj" MINUTES EXTRA AT 
EACH TIME CHECK" 

70 FOR N=l TO 100 

72 NEXT N 

73 PRINT 

74 LET XX=INT (X*Y/60> 

75 IF X*Y/60>XX THEN LET XX=XX 
+ 1 

76 PRINT "EACH PLAYER MUST MAK 
E "jXX;" MOVES BEFORE FIRST PE 
RIOD ENDS" 

78 PRINT 

80 PRINT S"" TO START" 

90 IF INKEY*="5 M THEN GDTD 100 



92 GOTO 90 

100 CLS 

110 LET HW=INT 

120 LET HB=INT 

140 LET MW=Y-HW*6( 

150 LET MB=Y-HB*6I 

160 LET SW=0 

170 LET 5B=0 

180 LET XW=XX 

190 LET XB=XX 

200 PRINT , , , ," 

S IN ";Y; " MINUTES 

210 PRINT ,,, ," 



Y/61 



220 PRINT 
LL TO MAKE" 
230 PRINT 



MOVES ST I 



TIME LEFT" 



240 PRINT AT 14,5;"^ ™ 
T 15,5;"1 l";AT 16,5; 

242 PRINT AT 14,19; 'T^^~ 
AT 15,19j"l 1";AT 16, 



250 PRINT AT 



B;XW;AT 10,22;! 



252 PRINT AT 15,6; HW; " : " ; MW; " : 
";SW;AT 15,20; HB; ": "iMB; " :";SB 

260 PRINT 1"" AFTER WH 

ITES MOVE", 0"" AFTER BLACKS M 

OVE","""S"" TD START" 

270 IF INKEY*="S" THEN GOTO 290 

272 GOTO 270 

290 PRINT AT 6,7; "TO MOVE" 

292 GOTO 350 

300 LET XB=XB-1 

305 IF XB=0 THEN GDBUB 800 

310 PRINT AT 10,22; XB; " "jAT 6, 
7; "TO MOVE"; AT 6,21;" 

350 PRINT AT 15,10;":";SW 

355 IF SW<10 THEN PRINT AT 15,1 




372 
373 
376 



382 
3B3 
3B4 
386 
387 
38B 
390 
392 
394 
396 
397 
398 



NEXT N 

GOTO 350 

LET SW=59 

IF MW=0 THEN GOTO 390 

LET MW=MW-1 

FOR N=l TO 8 

NEXT N 

PRINT AT 15,8;MW; " " 

GOTO 350 

LET MW=59 

IF HW=0 THEN GOTO 500 

LET HW=HW-1 

PRINT AT 15,6;HW; ": " 

PRINT AT 15,8;MW; " " 

GOTO 350 

LET XW=XW-1 

PRINT AT 10,B;XW;" ";AT 6, 

";AT 6,21; "TO MOVE" 
PRINT AT 17,7; " 



470 LET SB=SB- 



471 




"' TO STD 1,1 B"" TO BEGIN 


ANOTHER GAME" 


P 










"R"" TO RESET 


CONDITIONS" 


472 


FDR N=l TD 6 






660 


IF INKEY*="E" 


THEN GOTO 999 


473 


IF INKEY*="0" THEN 


GOTO 


300 


9 






474 


PRINT AT 21,12 






665 


IF INt<EY*="B" 


THEN GOTO 100 


476 


NEXT N 






670 


IF INKEY$="R" 


THEN RUN 


470 


GOTO 45B 






680 


GOTO 660 




430 


LET SB=59 






800 


LET XB=XB+INT 


<X*Z/60! 


482 


IF MB=0 THEN GDTD 


490 




B10 


LET XW=XW+INT 


(X*Z/60) 


4B3 


LET MB=MB-1 






B20 


LET MB=MB+Z 




434 


FOR N=l TO 8 






B30 


LET HB=HB+INT 


(MB/60) 


486 


NEXT N 






B40 


IF MB>=60 THE 


LET MB=MB-<I 


487 


PRINT AT 15,22:MB; 






NT tr 


6/60) )»60 




4BB 


GOTO 450 






845 


PRINT AT 17,7 


"TIME + MOVES 


490 


LET MB=59 






i-ianjj" 




492 


IF HB=0 THEN GOTO 


600 




850 


LET MW=MW+Z 




494 


LET HB=HB-1 






B60 


LET HW=HW+INT 


(MW/60) 


496 


PRINT AT 15,20;HB; 






870 


IF MW>=60 THEN LET MW=MW-(I 


497 


PRINT AT 15,22iMBj 






NT (MW/60>)»60 




470 


GOTO 450 






B75 


PRINT AT 10,8 


XW; " ";AT 10, 


500 


CLS 






22; XB;" " 




510 


PRINT ,,,,,,,," 


(353331 


877 


PRINT AT 15,6 


HW; "i ";MW; AT 


520 


GOTO 650 






880 RETURN 




600 


CLS 






900 


PRINT AT 21 ,0 




610 


PRINT ,,,,,,,," 


snosnu 


TART 
910 
920 


IF INKEY*="R" 
GOTO 910 


THEN RETURN 






TO END", 


650 







It's easy to complain 

about advertisements. 

But which ones? 



Every week millions of advertisements appear in print, on posters or 
in the cinema. 

Most of them comply with the rules contained in the British Code of 
Advertising Practice. 

But some of them break the rules and warrant your complaints. 

If you're not sure about which ones they are, however, drop us a line 
and we'll send you an abridged copy of the Advertising Code. 

Then, if an advertisement bothers you, you'll be justified in g 
bothering us. m 

The Advertising Standards Authority. W 
If an advertisement is wrong, we're here to put it right. 

ASA Ltd. Dept 2 Brook House, Toiringron Place, London WC1E 7HN 



■SOFTWARE REVIEWSW 



The ZX81 soft 
selection 

The ZX81 soft selection 
ZX81 software reviewed by Nick pearce. 



Micromouse Goes whether father innovative pm Bears in The wood 

De-Bugging h™ n .ot,wS. "S %$" and climber 

MCLothlorlan «"".' ,",°","m b .L» .» ™, unicorn Micro 

shelf. SVStPIYIC 

Micromouse is an eicellent fast When the program is com- "J""* 1 "* 

moving arcade game for the plete it will run and you progress 

ZX81. It is written entirely in to the next level. Tomake things Back to normal ZX8 1 grapMosi 

riiiiihintcode, and ihedisplay is difficult there are bugs which these two cassettes fror 

in In resolution graphics without move around the program steal- Unicom. Firstly, Bears, whic 

the need for any additional hard- ing letters, but which you can resembles a maze type atcad 

Ware. destroy using "data kill", (but game. Your task is to assist th 

The hires graphics give a Micromouse cannot carrv both last remainino arizzlv to net a 

screen display which is more letters and data-kill). 



Extended Basic 
F J c Beniest 



Extended Basic is designed tc 

Sinclair Basic on the ZX81. I 
enables some of the state 



READ, DATA, RESTORE, 
DRAW, UNDRAW, IN, OUTand 
FILL are all provided. PRINT, 
CLS and SCROLL functions are 
included and work very much 



Jo RAND USR 
r POKE com- 



l>ri.;!;r;irr 



my of her cubs as possible, 



he ZX81 ROM, a 


mining 


have 




the beat moves through the 
forest collecting honey the cubs 


the^Vual'T^ogetherwItMhe 


High resolution program 




usually happened to me. It is no 


have S ;rbe^es b cl C eTbefore hun 


extended Basic REM lines look 














good effect in arcad 


cularly 


highs 




^Instructions can be called up 


extended Basic statements are 
clearly identified by comprehen- 
sive error codes. The only pro- 
get back to single keystrokes 
after spelling out extended Basic 


games, it is certainly br 
new life into many a 
ZXB1. Indeed one w 
whether the limit of then 


aathing 
onders 


M C 
Lane 


esolution arcade game. 
othhrian is at 56 A Pari, 




potential has been reac 


isd, or 


Ches 


ire SKI 2 IRE 


being the maze walls, hunters 

needs to be taken not to get the 

forest between her cubs and the 

faster settings. 

The game has some nice 




























[unctions (DRAW, FILL, etc) are 








"~-^H 


his/her own movement keys, 
the skill level can be altered to 


and OUTstatements offer excit- 
ing possibilities. It should be 

directly and very quickly, leg 
disks, sound generator, joy- 




Iflsui 




ii.-<tlK 


Unicorn is Clmbar. Also similar 


Mr Beniest's English is far 


\Lflft9 




W ' 


< V 


game, but perhaps better des- 


"SV?«7,.^Sii«X 






r 1 


snakes and ladders. "Plasma 


sheets that accompany the pro- 








Bf 


snakes, and there are power 


Extended Basic is a first class 
program and excellent value. It 








W&A 


tion, and speed and difficulty 


enhancement for the ZXBI. 










Both Beats and Climber are 










W :4 y^ 










ifl 




Extended Basic costs €4.00 










from F J G Beniest, Lin- 






















Bournemouth 


Holland 







■SOFTWARE REVIEWS^ 



Racehorse Trainer 
and Adventure 
G Barker 




£2.60 
£3.20 

horn Gavin Barker. 12 Fleming 
Field. Shotlon Colliery, County 



Dampbell systems for spectrum 48k" 

Can YOUR Database 
Handle This? *&§»> 

PROFESSIONAL FILE MANAGEMENT. DATA RETRIEVAL AND PRESENTATION 
ANY ADDRESS LISTS. INVENTORY. CUSTOMER OR PERSO K,K,c 

IMASTERFILE can! 

Microdrive commands included; 32. 42 or 51 
characters per line!; 26 fields per record; 
Unrestricted number of records; 36 user defined 
Display/Print formats; Fast search & sort facilities; 
Around 32K of RAM available for data! 

NOW with IMF-PRINT and MASTERFILE version 09, 
you can format your data for a full width printer! 

Works wilh most popular printer interfaces. Fully variable report widths (over 100 columns) and 
lengths! Powerful numeric editing and column totals. Almost no reduction in space available lor 
data. Many more products available. Send SAE for details! 

MASTERFILE version 09 £15.00 Fr ™ SZvat°o$ ™™#* 

MF-PRINT £ 6.95 Ne»Add««c«rai»ni 

MASTERFILE with MF-PRINT £t9.95 yiTC.l mV. 1'^lnn 




£3 



■SOFTWARE REVIEWSl 



Readers 
Reviews 

Taking pen in hand, you 
tell us what the public 
really think about the 
goods on sale. 




PYJAMARAMA by 


There is a program which 1 






MIKRO CEN 

Richard Oakley 




s "iHsssiS£ 








get through and a map can of it 


"Tudor Rose" logo In high 










Automania which was the first 




bat, but the game draws the 




In tile Mikro Gen's series featur- 


standards recently. 1 will be 


map line by line and this takes 




ing their character "Wally 


looking out for further releases 


about 20 seconds. Once again, 


rent date before the program 


Week" and 1 thought that even if 








it was half as good it would be 




your thumbs. The graphics of 




stead of being a quick and in- 


TRANSYLVANIAN 
TOWER 


at times, the windows on the 


the clioioe of (wo levels of dif- 
ficulty, multiplying either two 
2 -digit numbers or two 3-digfl 




RICHARD SHEPHERD 






ere lentestfal 


SOFTWARE 


amateurish look. Vou | only get 


3 ootf itJe ' ( to a s U k'i ed the d e t ^nles* 


This p-ogram is one of the 


Dermot Reidy 


you ha e ve n to wait anot'her'two 


you naTe "had'VavTous" ex* 


curiyir. jump up and collect 


1 am glad 1 didn't buy this game 


again™ H °' H V ° U "" S ^ 


they C show you tlOWto 'enter 






If you're a person with plenty 




■I ore of the best i5 the large 








r.umbc: uf detailed graphics. 












for you. Transylvanian Tower 




with platforms in but are fully 


joyable games on my Spectrum. 


also probably suits players with 




•en sheon great detail. 


this one was the worst offering 1 






"hs.fl is a lot of humour in the 


have yet seen and must be a 




screen display in exactly the 


Game apart from Wally's 


naw low for Spectrum soft- 


sleep at night. But ff you're a 








space invader /Krazy Kong fan. 




games '•■' example, where you 


Vou begin the game by fin- 








ding yourself in Count Kreepie's 


Transylvanian Tower is pric- 


one number at a time, starting 






ed at £6. BO and comes from 


from the righthand side. If you 


traders sly e game. 


way through five mazes, kill 


Richard Shepherd Software, 






Count Kreepie and find his 


Elm House, 23-25 Elmshott 




ere Wally's sleepwalking alter 


treasure trove. Along the way. 


Lane, Chippenham, Slough, 


When each line is completed. 




you have to kill man-eating, 






alarm clock and wind it up so 


blood-sucking bats. A certain 




your lines have been displayed, 




amount of bats have to be killed 


INTERMEDIATE 


i in: urogram prompts you to add 


farwork. Various objects will try 


next maze. Sounds interesting, 
doesn't it? 


MATHS 1 


them all up and enter the final 


you a™runXg'out of "snooze 


ROSE SOFTWARE 


answer, again s ar rng rom e 


energy" which is represented 


When you first load the pre- 


Jim Lock 


The program thoughtfully in- 


by a glass of milk. Collect some 
ot the food lying around to 




£4.95 


cludes a "Help" facility for 
those who are really stuck - 


restore this energy. 




Intermediate Maths 1 by Rose 


Firfjssii.u. "H •:!!!.iil.i.tis vou to see 


You can only carry two ob- 




Software consists of sin pro- 










maculate fashion |i will a i 5 ,-., do 






multiplication, long division and 




ticular object before you can col- 


program are quite good. Then, 


fractions. The program package 


Your score so far, of correct 




the worst happens. Vou have to 


is attractively cased with an in- 








lay card which gives the poten- 








tial purchaser a deer description 












or Kempston joystick option. 








The program uses and P for 


time. After getting through a 


ed separately, three to each side 




left/right and M to jump. Mikro 






more correcl answers you have 








scored, the greater the number ^ 
of pins knocked down. Five pins W 


program without any problem. 


tl» B ma. And 1 .nought 


screen showing the producer's 
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■SOFTWARE REVIEWS^ 







shoot the randomly 


moving 










sn'tfire 










Game7,Spaceflre2 




ly 


□vesfrom right to left 
u each go, and if yc 


2X81 








ra 


turns to the right a 


d tries 




Car Crash is a subs 


andard 


o 


r driving program wh 


ere you 



stop the Express 

Sinclair 

S. Garner 



This is my review ot "Stop the 
I hope I finish it before the press. 

Across the train you du 
To stop it get to the very 



edmen you must The -\ K CameS pack 

by ARTIC 

akes a second to COITipUtmg 

i £6.00 

eyw |U mpsand Br j an Qwen 



II their dag; 
Only ten m 



Against the redman, take n 



After you have stopped the loosely. They can be summanz- 

-ITA" train, ed by the word 'rubbish . hut I 

Back toe beginning you go willgothroughthemonebyone. 

again. Thef irst game. Slot Machine, 
is a erode representation of a 

score points, 1 P for it to pick 3 numbers and 

But to do this you need double display them in the windows of 



This game is rather quickative, insert the first 1 p. The h 

change. You win by eithe 
The graphics and colour are ting 3 in a row, or b\ 



Sincli 



the 



t of 



w ™ ra - Game 2 Art, is a familiar pro- 

TheKisOK B t48K movin " mhm „ PLOTtIng 6 or 

And it came out just after May. UNPLOTting cursor around. I 

The price is a mere E5 .9 5 , r^n ou\ 9 of memorv" 1 '" 5 ' "^ " 

And to get it all you need do is Game g _ ^^ ^ wheie 



Running fro 
A passing 
headman. 



To your local computer store 


tsd 


esented by two 


I'm ,u,. tn., will M il in 


° ed, howev 






e Catch n 




wall. 


Cos rand 


omly moving 'O't 



SCROLLS it made by 100 
metres a nd tells you how far you 



nothing like budgies. 

ches/spaces. until yo 

anotherline,'or ; jll,-j:;lui 
Program 1 1 , Wall, is 
a attempt at 'Break-o 
Of the games, onlyoi 



! the programs: firstly, they al 
loaded ok, and secondly , they al 



jch long inrrr :Ihiii,:i::ii:: if 
ARTIC computing. It is a com 
plete mystery to me how this 
found its way onto the shelves 



omputm 

a 
The magazine fo|g|ose who take their computer and video games seriously 









4 
Ma 



VIC, Spectrum, 
BBC and Amstrad 



^HARDWARE REVIEW! 



The Saga 1 Emperor 
Keyboard 



pkniii saacing tubes lo 

"■ :■.'.][ :;>in-i i [hen this pro- 
ojld have been cheaply 



juire "slight modilicfllior.' 1 in 
S keyboard housing translates 



The diagrams, i 

photographs, are 




Keyboards are now av; 
awn advantages and di 



Summary 

Although the key 



the SPACE key 
t importantly, a 
bar underneath 



iwer left of the keyboard 

mmls) :liii lull length ot the 

The keys themselves 



ZX ADVENTURE 



Stranded! 

Andy Turner, recovering from his Martian Affair, 
now finds himself Stranded in Hull 





changes, the Spect 

In case anything 

here is a list of 


planet, Thear, 


variables to help trs 


obody could 


VARIABLES 


intelligent 


FOOD - food le 



you're going to 

Finally this I 

UNfriendly gan 

Andy says; " 



10 GOSUB 200 
20 LET X=5 
25 LET Y=5 
30 LET FDDD = 1< 
35 LET D=0 
40 LET LIFE=3 
45 LET W=0 
50 LET 0=0 
60 LET SS=0 
63 LET RH=0 
67 LET WD=0 
70 LET SCORE=i 
72 PRINT "■**♦ 
TINUE *»*" 



-NEWLINE TO CON 



75 INPUT OS 

76 CLS 

77 GOTO 900 
i print " ixxxxxxx%xpxx xzxxxxx: 



202 PRINT " YOU ARE A LITTLE 
LOST 5PACE MAN, YOU ARE ST 
RANDED ON A DESDLATE PLANET. 

TO ESCAPE ALL YUU 

HAVE TO DO IS FIND THE MATTER T 
RANSPORTER WHICH WILL SEND YOU 



BACK TO EARTH. 

THE YEAR IS 2020 
AND I SHOULDTHINK THAT IF YOU AR 
E LUCKY YOU MIGHT GET HOME IN A 
CENTURY OR THREE. 

ALL THAT IS LEFT 
IS FOR ME TOWISH YOU THE WORST P 
QSSIBLE LUCKAND GOODBYE. 

P.S. YOU HAVE THR 



EE LIVES TO BEGIN 
203 RETURN 

300 GOSUB 875 

301 PRINT AT 0,0 
EN THE ADVENTURE 

LIKE YOU 
ICK. 



WITH. -BYE 



"YOU HAVE BEAT 
I HATE PEOPLE 
YOU MAKE ME S 

BUT I BET YOU 





CANT DO IT AGAIN. " 

302 LET SCORE=SCORE+ 10000 

303 PRINT 

304 PRINT "YOUR SCDRE WAS " ; SCO 
RE 

305 GOTO 450 

390 PRINT "YOU HAVE EATEN SO MU 
CH THAT YOU HAVE JUST BURST, HA H 
A HA SERVES YOU RIGHT FOR 

BEING SO GREEDY. " 

391 LET FOOD=10 

395 PRINT "YOU HAVE GOT FAR TOO 
MANY LIVES, THIS WILL JUST HAVE 

TO STOP SD ILL JUST KILL YOU AN 
D TAKE AWAY ALL YOUR LIVES." 

396 GOTO 400 

397 PRINT "YOU HAVE JUST RUN OU 
T OF FOOD AND HAVE THEREFORE S 
TARVED HA HA" 

398 GOTO 400 
F FOOD<10 THEN LET FdOD=10 

402 GOSUB 875 

403 PRINT AT 0,0; "YOU ARE NOW D 
EAD YOU STUPID LITTLE SPACE 
MAN. IT SERVES YOU , 

R I GHT . " 

404 IF LIFE=B THEN PRINT " 
U HAVE NO LIVES LEFT HA HA 

YOU WILL STAY DEAD FDR THE REST | 
OF YOUR LIFE. 
UR SCORE WAS "; SCORE 



X COMPUTING 




405 IF L1FE=0 THEN GOTO 450 

406 PRINT "DO VOU WANT TO BE RE 
NCARNATED Y/N?" 

407 INPUT Q* 



IF 0*= 

409 PRINT 

410 PRINT 
ILE I PASS 
CTRIC 

EARS. " 

411 FOR N=l 

412 NEXT N 

413 FAST 

414 FOR N=0 

415 PRINT AT 



416 NEXT N 

417 FOR N=l TD 
4 IB FAST 

419 FOR 0=1 TO 

420 SLOW 

421 NEXT N 

422 CLS 

423 PRINT AT 
DUGHT TEARS 



N" THEN GOTO 475 

WAIT FOR A MOMENT WH 
THE HIGH VOLTAGE ELE 
CURRENT THROUGH YOUR 



I BET THAT BR 

TO YOUR EYES, 

YOU MAY NOW C 

ARRY ON YOUR SEARCHWHERE YOU LEF 

T OFF, " 

424 LET LIFE=LIFE-1 
l 425 GOTO Q7H 
450 PRINT 

452 PRINT 

453 PRINT "DO YOU WANT TO START 
ANOTHER ADVENTURE Y/N?" 

454 INPUT Q* 

456 PRINT "WAIT A MO." 

457 FOR N=l TO 100 
45B NEXT N 

459 CLS 

460 CLEAR 

461 RUN 

475 PRINT "BYE BYE." 

476 FOR N=l TO 100 

477 NEXT N 

478 NEW 
S70 GOSUB 975 
B72 GOTO 900 

875 PRINT AT 21 ,0; "*»* NEWLIN 

TO CONTINUE ***" 

876 INPUT Q* 
8B0 FOR N=l TO 22 
890 SCROLL 
B95 NEXT N 
B97 PRINT AT 0,0; 
899 RETURN 
1902 PRINT "WHICH DIRECTION? 

N,S,E OR W. " 
905 INPUT D$ 

IF D*="N" THEN LET X = X-1 ► 



915 IF D*="S' 


THEN LET X = X + 1 FOOD 


DO YOU 


-1)EAT IT? 


920 IF D*="E' 


THEN LET Y=Y+1 




2) DIG A HGL 


925 IF D*= M W 


THEN LET Y=Y-1 E AND 




BURY IT? 


930 IF D*<>"N 


1 AND D*<>"5" AND 




3) IGNORE IT 



935 LET SCORE=SCORE+100 

936 IF FOOD>=30 THEN GOTO 390 

937 IF FODD=0 THEN GOTO 397 

938 IF LIFE>=6 THEN GOTO 395 

939 LET FOOD=FOOD-l 

940 IF X=0 THEN LET X=9 
945 IF Y=0 THEN LET Y=9 
950 IF X = 10 THEN LET X=l 
955 IF Y=10 THEN LET Y=l 
960 GOSUB < <X*1000>+ (Y»100) ) 
970 GOTO B00 

1100 PRINT "TREAD CAREFULLY." 

1110 RETURN 

1200 GOTO 2100 

1300 PRINT "ITS GETTING VERY HDT 

AROUND HERE" 

1310 RETURN 

1400 GOTO 1500 

1500 PRINT "YOUVE ENTERED A SCOR 
CHING HOT RADIOACTIVE DESERT 

DO YOU: -1) TURN BACK? 
2) TRY TO CRO 
SS IT?" 

1501 INPUT Q* 

1502 IF Q*="2" THEN GDTO 1510 

1503 PRINT "GOOD CHOICE. " 

1504 RETURN 

1510 PRINT "IDIOT YDU HAVE JUST 
BEEN FRIED HA HA -SIZZLE-" 

1511 GOTO 400 
1600 GOTO 1500 
1700 GOTO 1300 

1800 PRINT "I DARE YOU TO GO E. " 

1610 RETURN 
1900 GOTO 7800 

2100 PRINT "YDU HAVE JUST ENTERE 
D AN AREA WHERE THE EARTHS CRU 
ST IS VERY THIN-TREAD CAREFULLY 

2101 IF G=0 THEN RETURN 

2102 PRINT "OH DEAR THAT GOLD OF 
YOURS IS SOHEAVY THAT IT HAS CA 

USED YOU TO SINK THROUGH THE CRU 
ST AND FALL INTD OBLIVION -BYEEE 
EEEEEEEEEEEE" 

2103 GOTO 400 
2200 GOTO 3100 

2300 PRINT "RICHES ARE AT HAND." 

2310 RETURN 

2400 GOTO 1300 

2500 PRINT "YOU HAVE FOUND SOME 



2503 IF Q*<>"2" THEN RETURN 

2504 PRINT "WHILE DIGGING THE HO 
LE YOU FALL IN AND DIE DF STARVA 
TION HA HA YDU WONT TRY TO BE F 
UNNY ON THISPROGRAM AGAIN WILL Y 
OU. " 

2505 GOTO 400 
2600 GOTO 1300 

2700 PRINT "THERES A DESERT NEAR 

AND A FOREST FAR FAR TO S. 

2710 RETURN 

2B00 PRINT "YOU FIND A NOTE SAYI 

NG B W. 5 S. " 

2310 RETURN 

2900 PRINT "I DARE YDU TO GO N. " 

2910 RETURN 

3100 PRINT "YOU HAVE FOUND A BAR 
OF GOLD DO YOU :-l)EAT IT? 

21 TAKE IT W 
ITH YOU? 3) IGNORE IT 

3101 INPUT Q* 

3102 GOTO < (VAL Q**10>+3100) 

3110 PRINT "BURP, THAT DIDNT DD M 
UCH FOR YOUR INDIGESTION. " 

3111 LET FOOD=FDOD+ 1 

3112 RETURN 

3120 PRINT "WISE. " 

3121 LET G=l 

3122 RETURN 

3130 PRINT "NOW WAS THAT WISE? - ?? 



3210 RETURN 
3300 GOTO 7S00 

3400 PRINT "YDU HAVE COME ACROSS 
SOME RATHERUNFRIENDLY RADIOACTI 

VE RDCKS DO YDU :-l) PANIC? 

2>RUN LIKE 
HELL?" 

3401 IF W=l THEN PRINT TAB 9; "3) 
POUR WATER ON THEM?" 

3402 INPUT Q* 

3403 GOTO ( IVAL Q*»10)+3400) 
3410 PRINT "OH DEAR THE ROCKS GO 



HAVE BEEN FRIED HA I 



ZX ADVENTURE 



311 1 GOTO 400 

3420 IF RND<.5 THEN GOTO 3410 

3421 PRINT "YOU ORE LUCKY, YOUVE 
ESCAPED. " 

3422 RETURN 

3430 PRINT "ARENT YOU CLEVER THE 
ROCKS HAVE DISSOLVED-YOU MAKE M 

E SICK." 

3431 LET W=0 

3432 RETURN 

3500 PRINT "THERES A HINT DF MAG 

IC IN THE AIR. " 

3510 RETURN 

3600 GOTO 6200 

3700 PRINT "YOU HAVE ON YOUR SEA 

RCH COME ACROSS A VERY INTELL 

IGENT MUSHROOM. . .DO YOU :- 

1 ) PLAY A GAME OF CHE 
SS WITH IT? 2>ASK IT THE WAY? 

3)EAT IT? 

41PICK IT?" 
3705 INPUT Q* 

3710 GOTO ( tVAL QS*10) +3710) 
3720 PRINT "THE MUSHROOM BEATS Y 
OU AND TURNSYOU TO STONE FUR BEI 
NG SUCH A BAD PLAYER-SERVES YO 
U RIGHT FOR BEING A CLEVER DICK. 

3725 GOTO 400 

3730 LET K=RND 

3731 IF K>=.5 THEN PRINT "(1USHRO 
QMS ANSWER :- GO 4 T 
IMES SOUTH AND TW 
O TIMES EAST YOU MA 
Y BE LUCKY OR A M 
UTANTS FEAST. " 

3732 IF K<.5 THEN PRINT "MUSHROO 
MS ANSWER :- GO 2 T I 
MES EAST AND 5 T 
IMES NORTH AND YOU 
LL FIND THE TRANSPORTER AT LEAS 
T I THINK YOU DUGHTA. " 

3733 RETURN 

3740 LET K=RND 

3741 IF K>=.75 THEN PRINT "HARD 
LUCK THE MUSHROOM IS POISO 
NOUS AND YOUR DEAD." 

3742 IF K>='. 75 THEN GOTO 400 

3744 PRINT "TASTY WAS IT?" 

3745 LET F00D=F00D+2 

3746 RETURN 

3750 PRINT "YOUVE KILLED IT MURD 
ERER. " 

3751 RETURN 
3800 GOTD 7B00 

3900 PRINT "YOU FIND A NOTE SAY I 
NG EAST? OR WEST? 

NO SOUTH IS BEST. " 
3910 RETURN 



4100 PRINT "THERES A FOREST TO T 

HE SOUTH. " 

4110 RETURN 

4200 PRINT "FOOD IS CLOSE." 

4210 RETURN 

4300 GOTD 2500 

4400 GOTO 3500 

4500 PRINT "YOU HAVE FOUND A MAG 
IC WAND DO YOU: -1) PICK IT UP 
? 21 THROW IT A 
WAY? 3) USE IT AS 
A TOOTHPICK^ 4) IGNORE IT? 

4501 INPUT Q* 

4502 GOTO (IVAL Q**10)+4500) 

4510 PRINT "VERY WISE." 

4511 LET WD=1 

4512 RETURN 

4520 PRINT "IT DIDNT LIKE BEING 
THROWN AWAY SO IT HAS THROWN YOU 

AWAY IN SOME OBSCURE DIRECTI 
ON HA HA. " 

4521 LET X=INT <RND*9>+1 

4522 LET Y=INT (RND»9)+1 

4523 RETURN 

4530 PRINT "WHILE USING IT AS A 
TOOTHPICK YOU SWALLOWED IT AND 

DIED HA HA STOP TRYING TO BE A 
CLEVER DICK. " 

4531 GOTO 400 

4540 PRINT "WISE. " 

4541 RETURN 
4600 GOTO 5300 

4700 PRINT "SOMETHING INTELLIGEN 

T LIES TO THE N. " 

4710 RETURN 

4800 GOTO 6200 

4900 GOTO 7800 

5100 PRINT "YOU ARE GETTING CLOS 

ER TO A FOREST. " 

5110 RETURN 

5200 PRINT "WATERS NEAR." 

5210 RETURN 

5300 PRINT "YOUVE FOUND A BOTTLE 
OF WATER DO YOU :-l) DRINK IT? 

2) CARRY IT 
WITH YOU? 3) IGNORE IT 

5301 INPUT B* 

5302 IF Q*="3" THEN RETURN 

5303 IF Q*="2" THEN GOTO 5310 

5304 PRINT "SLURP GUZZLE" 

5305 LET FQOD=FOOD+2 

5306 RETURN 

5310 LET W=l 

5311 RETURN 

5400 PRINT "YOU SEE A CRASHED SP 
ACE SHIP ANDFOOTPRINTS LEADING S 



ZX ADVENTURE 



5410 RETURN 

5500 PRINT "YOU HAVE RETURNED TD 

THE START YDU IDIOT, I THOUGHT 
I TOLD YDU TD FIND THE MATTER T 
RANSPORTER. " 

5510 RETURN 
5600 GOTO 7800 
5700 GOTO 2500 

5800 PRINT "YOU HAVE FOUND A FIS 

H, A SMELLY RED HERRING 

TD BE EXACTDO YDU :-l>EAT IT? 

2 > TAKE IT W 
ITH YOU? 3) PUT YOUR 

OXYGEN MASK ON AND RU 

N?" 

5B01 INPUT Q* 

5S02 GDTD ((VOL (3**10) +5800) 
5810 PRINT "RATHER YOU THAN ME." 

5B11 LET FOOD=FaQD+l 
5812 RETURN 

5820 PRINT "PHEW WHAT A STINK." 

5821 LET RH=1 
5B31 RETURN 
5900 GOTO 6800 

(.100 PRINT "THERE IB A FOREST JU 
ST SOUTH. " 

6200 PRINT "YOU HAVE JUST FOUND 
A BOTTLE OF REINCARNATING OIL, SO 

YOUVE JUST GAINED ANOTHER LIFE. 
DAMN. " 

6201 LET LIFE=LIFE+1 

6202 RETURN 

6300 PRINT "YOU ARE VERY CLOSE T 

A FOREST. " 

6310 RETURN 

6400 PRINT ' 

OTPRINTS 

URNING TO GOO. " 

6410 RETURN 

6500 PRINT "YOU SEE A SKELETON I 

N A SPACE SUIT. " 

6510 RETURN 

6600 GOTO 4800 

6700 GOTO 3400 

6800 PRINT "YOU HAVE FOUND A SPA 

M SANDWICH DO YDU : - 1 > EAT IT? 

2) TAKE IT I 

ITH YOU? 

IN CASE IT 



3) RUN AWAY 

EATS YDU? 
4) IGNORE IT 



6801 INPUT Q* 

6802 GOTO ( (VAL B*»10)+6I 
6B10 PRINT "YUK. " 

6511 LET FODD =F0OD-t-2 

6512 RETURN 
6820 LET SS=SS+1 



VIL VIDEO 
ABOUT. TO 
SANDWICH 



6821 PRINT "I HDPE YOURE VERY HA 

PPY TOGETHER" 

6B22 RETURN 

6B30 PRINT "WELL DONE THEYRE VIC 

IOUS THESE SPAM 5ANDWIDHES. " 

6831 RETURN 

6340 PRINT "YOU SHOULD HAVE RAN 

AWAY COS ITSJUST TURNED NASTY AN 

D HAS EATEN YDU -GULP." 

6841 GOTO 400 

6900 PRINT "YOU HAVE FOUND THE E 
GAMES WIZARD WHO IS 
TURN YDU INTO A SPAM 
COS HES HUNGRY, 
DO YDU :-l)CRY? 
2) PRAY? 
3) OFFER HIM 
A SPAM SANDWICH? 



ON HIM?" 

6902 INPUT B* 

6903 GOTO ((VAL Q$*10)+6900) 

6920 PRINT "THERE IB A LITTLE PU 
FF DF GREEN SMOKE AND YOUR A SPA 
M SANDWICH MUNCH MUNCH GULP,WER 
E. " 

6921 GOTO 400 

6930 IF SB=0 THEN GOTO 6935 

6931 LET SS=0 

6932 PRINT "HES TAKEN YOUR WHOLE 
SUPPLY OF SPAM SANDWICHES , BUT 

HAS LET YOU GD. " 

6933 RETURN 

6935 PRINT "HE WAS GOING TO TAKE 
YDUR SANDWICHES, BUT YOU H 

AVENT GOT ANY AW WHAT A SHAME. 

6936 GOTO 6920 

6940 PRINT "THE WIZARD DI5APPEAR 
S IN A PUFF OF GREEN SMOKE LEAVI 
NG BEHIND A SPAM SANDWICH." 

6941 GOSUB 875 
6943 GDTO 6S00 

7100 PRTNT "YDU ARE IN A DARK DA 
MP ALIEN FOREST-DO YOU EAT TH 
E FRUIT OF THE TREES Y/N?" 

7101 INPUT Q* 

7102 IF Q*="N" THEN GOTO 7120 

7103 IF RND<.45 THEN GOTO 7115 

7104 PRINT "YUM YUM" 

7105 LET F0DD=FD0D+2 

7106 GOTO 7120 

7115 PRINT "IDIOT THIS FRUIT IS 
POISONOUS. " 

7116 GOTO 400 

7120 PRINT "ITS UP TO YOU." 

7121 IF RND>,2 THEN RETURN 



ZX ADVENTURE 



7122 PRINT " YOU CLUMSY FOOL YOU 
HAVE JUST STEPPED ON THE RDOT 

OF A TREE MAKING IT VERY ANGRY 
,SD IT HAS EATEN YOU MUNCH MUNC 
H GULP HA HA" 

7123 GOTO 400 
73B0 GOTO 7100 
7400 GOTO 7800 
7500 GOTO 6300 
7600 GOTO 3400 
7700 GOTO 5300 

7S00 PRINT "YDUVE GTUMBLED ACROS 
S A RATHER LARGE HUMANO ID-WHOOP 
S OH DEAR HES A MUTANT" 

7801 IF D=0 THEN PRINT "AND A HU 
NGRY MUTANT AT THAT HES JUST 

EATEN YOU HA HA — BYE BY 
E-GULP SLURP. " 

7802 IF D=I THEN PRINT "YOU RAN 
OUT OF SPRAY. " 

7B03 IF D=l THEN LET D=0 

7804 IF D=0 OR D=l THEN GOTO 400 

7805 PRINT "BUT LUCKILY YOU HOVE 
SOME MUTANT DISSOLVING SPRAY AN 

D HAVE USED IT. " 

7806 LET D=D-1 

7807 RETURN 

7900 PRINT "YDUVE FOUND THE MATT 
ER TRANSPORTER, BUT DART 
H VADER GOT HERE FIRST. 

HE HAS A LITTLE ROBO 
T DDG CALLEDREX WHO JUST HAPPENS 
TO BE HUNGRY, AND HELL ONLY 
EAT HERRINGS, RED ONES. AN 
D DARTH WONTLET YOU USE THE TRAN 
NY WHILE REXIS HUNGRY." 

7901 IF RH=0 THEN GOTO 7920 

7902 PRINT "DO YOU GIVE REX A RE 
D HERRING? Y/N?" 

7903 INPUT Q* 

7905 IF Q*="N" THEN GOTO 7910 

7906 PRINT "THATS A GOOD BOY , DAR 
TH HAS LET YOU USE THE TRANSPOR 
TER.SD YDUVEESCAPED.-YDU MAKE ME 

SICK"" 

7907 GOTO 300 

7911 PRINT "DARTH HATES GREEDY P 
EOPLE AND SOHE HAS KILLED YOU WI 
TH HIS LIGHTSABER HA HA." 

7912 GOTO 400 

7920 PRINT "AW WHAT A SHAME YOU 
HAVENT GOT ANY HERRINGS, SO YOUL 
L JUST HAVE TO GO AND GET ONE HA 

HA. " 

7921 RETURN 
8100 GOTO 7100 

8200 PRINT "YOU HAVE FOUND A CAN 
OF MUTANT DISSOLVING SPRAY, YOU 



MAY USE IT TO PROTECT YOURSELF 
WHEN YOU SEEA MUTANT." 

8201 LET D=D+3 

8202 RETURN 
S300 GOTO 7100 
B400 GOTO 8500 

8500 PRINT "YOU CAN SEE A FOREST 

TO THE WEST. " 
8510 RETURN 

8600 PRINT "THERES FOOD NEAR." 

8601 RETURN 
8700 GOTO 2500 

8800 PRINT "A TERRIBLE FISHY SME 
LL FILLS THE AIR. " 

S810 RETURN 
8900 GOTO 5800 
9300 GOTO 7100 
9400 GOTO 8400 

9500 PRINT "YOU HAVE JUST MET A 
RATHER UNFRIENDLY AND ALSO 
VERY HUNGRY METEORITE CRATER WHO 

EITHER WANTS FOOD OR GOLD T 
BUY SOME WITH, FROM THE VIDEO 
GOMES WIZARDAFTER THIS ADVENTURE 
DO YOU :-l)RUN? 

2 ) OFFER HIM 
GOLD? 3) OFFER HIM 

A SPAM SANDWICH?" 

9501 INPUT Q* 

9502 GOTO { (VAL Q**10> +95001 

9510 PRINT "OW HOW UNFRIENDLY CA 
R YDU GET. " 

9511 RETURN 

9520 IF G=0 THEN GOTO 9525 

9521 PRINT "HES TAKEN ALL YOUR G 
OLD BUT HAS LET YOU GO." 

9522 LET G=0 

9523 RETURN 

9525 PRINT "AW YOU HAVENT GOT AN 
Y GOLD 50 HES EOTEN YDU BYE 

BYE. " 

9526 GOTO 400 

9530 IF. SS=0 THEN GOTO 9535 

9531 PRINT "YOUR LUCKY HE LIKES 
SPAM... HES LET YOU GO." 

9532 LET S5=SS-1 

9533 RETURN 

9535 PRINT "WHAT SHAME HE FREF 
ERS TASTY LITTLE SPACE MEN LIK 
E YDU SO HES EATEN YOU-GUL 
P. " 

9536 GOTO 400 
9600 GOTO B800 
9700 GOTO 5800 

9B00 PRINT "A FRIENDLY TIME TRAV 
ELLER SUGGESTS YOU GO N.E. 



■programming tips« 



De-bugger 

Getting a program typed in is often only the 
start of your problems. Ed to the rescue. 





ISr"A£7Xm""."£' 




be used, probably the most 

flown Ihe Bugs introduced by 
yourself or occasionally by our 


^A0H& 


gram actually works than by 
merely typing it in, but tracking 


M p 


here are some tips to help you in 
your efforts when faced with 


^ ^^^^^^ 


1 NEXT without FOR 


^R ^r 


up - no related FOR 'letter 1 - 
No1 TO NoZ line, or the letter 


W ^r 


LET 'tetter' - No. 


^^r 



ib problem. Then 



PRINT V Enter/t* 
PRINT XEnter.'f 
PRINT AS Enter 



tion.Che 



without QOSUB this end it can happen o 

the computet has stan program (saved w 

■riaaGOSUBinstruc- usually RESTORES to 

aGOTOhasn'tbeen rect line number bed 

place of a GOSUB. READ. 

i missing GOSUB. 

I FOH without NEXT 

J / "w'hokf number) NEXT is missing! 



variables. It has probably e* 
ceeded the limits, took for tine 


tempting, to do som 
PRINT AT 0,33 - no 
Check any varirtWts. 


with + - * 1 : If necessary ad 
limiting code. For example: 


through Ihi: r'roqran' 


IFX>10THENLETX = 10 


see report 3 


4 Out of memory 


h E Out of DATA 



- usually a LET Before Sespamni 



sei RAM'nii. nurr.bei of L>A~A nemi 
, enter CLEAR the number of RLAD-; 
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HARDWARE 



The Rotronics 
wafadrive 

Colin Christmas gets in the fast lane 
















new hardware. 


re^renct. He'r^ the WhZ 


fa l c1lit S iesha'vBa W spe d C ia ,: 


appeal if 


HARDWARE 


ROTRONICS WAFADRIVE. It is 


function. Location of files on the 
64K and 12BK wafers or car- 


VaSWORD fore long 


Si 














900g and occupying a pride of 




















BOmm behind the Spectrum. It 










is connected to the expansion 


















































or wafers, 67 x45 x6mm in 


each wafer is completed by a 


tothestraighforward 






size. These are available with 












'read' by the Wafadrive System 




dge and 
































ook quaint and out daled. 




















prog ram mer5 or like myself just 


programs, is requited, Rather 


damaged, handle well and can 


Anyone going for 














as though they mean business. 


program needs to be salely Med 


as normal cassettes. The 


comes. 




ZXCOMMnMFEBRUARY'MARCHISB* 



ZX81 CAME 



A grasphically excellent 
fruit machine simulation 
from lan Driver who 
gambles in Lancashire. 






la 


PRINT 


19 


PRINT 




20 
21 


PRINT 

■" 
PRINT 


■■^ 



240 IF P<1 



THEN PRINT AT 5, 



22 PRINT 



NO BETS ABOVE £ 



23 LET A=7 

24 LET P=0 

25 PRINT AT 1B,4;" *PLACE YD 
UR BET5» 

27 PRINT AT 1,9; " 
30 INPUT M 

34 IF MM00B00 THEN BOTQ 30 

35 IF M=0 THEN GOTO 270 
40 PRINT AT 1,9; "£";f1 
45 LET M=INT (M) 

SB FOR N=l TO 6 

53 LET W=INT <RND*6>+1 

60 LET X = INT <RND*6)+1 

65 LET Y=INT (RND*6>+1 

70 LET Z=INT <RND*6)+1 

75 LET B=2 

B0 GOSUB <W*100>+1000 

B5 LET B=9 

90 GOSUB (X*100)+1000 

95 LET B=16 
IBB GOSUB <Y*100)+10BB 
105 LET B=23 
110 GOSUB <Z*1BB)+1000 
120 NEXT N 
150 PAUSE 125 

160 IF W=X OR Y=Z OR X=Y OR W=Z 
OR W=Y DR X=Z THEN GDSUB 2500 
170 IF W=X AND X=Y AND Y=Z THEN 
GOTO 350 

IBB IF W=X AND X=Y AND YOZ THE 
N GOTO 449 

190 IF X=Y AND Y=Z AND WOX THE 
N GOTD 450 
20B IF W=X THEN GOTO 549 
210 IF Y=Z THEN BQTO 550 
215 FOR N=l TO 12 
217 PRINT AT 3,14j " 

220 PRINT AT 3,14;" YOU LOST 

225 NEXT N 

230 LET P=P-M 

235 PRINT AT 5,14;"£"jP 

237 PRINT AT 3,14; " 

239 IF P=B THEN PRINT AT 5,14;" 

£i..pj" 

239 IF P<1B00 THEN PRINT AT 5,1 



241 IF P<100B00 THEN PRINT AT 5 
,14; "£";P; " " 

242 IF P< 1000000 THEN PRINT AT 
5,14; "£";P;" 

243 IF P< 10000000 THEN PRINT AT 
5,14; "£";P;" 

244 IF P>=200000BB THEN GOTO 42 
5B 

25B GOTO 25 

270 IF P<0 THEN GOTO 405B 

271 IF P=B THEN GOTO 4150 

272 IF P>0 THEN GOTO 425B 

349 GOTO 1BBB 

350 IF W=l THEN GDTO 4B1 

355 FOR N=l TO 12 

356 PRINT AT 3, IS; "TOP WINNER" 

357 PRINT AT 3,15; " 
35B NEXT N 

36B LET P=< < (30*M)+M)+P> 

370 GOTO 235 

401 FOR N=l TO 6 

402 PRINT AT 7,2; " _ . 

403 PRINT AT B,2j" ■_ ^ 

404 PRINT AT 9,2;" .■■*__ 

405 PRINT AT IB, 2; 
.-■■■■■ ■ 

406 PRINT AT 11,2; 

urn- ■ 

407 PRINT AT 12,2; " 

n ■ — • - " 

40S PRINT AT 13,2; 
IX- A - " 

409 PRINT AT 14,2; 

410 PRINT AT 7,2;". .B. . 

■ ■ . ■ . 

411 PRINT AT 8,2; " L ■ L 

■ L ■ L 

412 PRINT AT 9,2;" U "H ■ U -^ 

■ U ^ ■ U ^ " 

413 PRINT AT 10,2;" C I fl C I 

■ C ||C | " 

414 PRINT AT 11, 2( " K 1 ■ K I 

■ K | ■ K I " 

415 PRINT AT 12,2; ' 

■ V I ■ Y | 

416 PRINT AT 13,2; 

■ * # ■ * * " 

417 PRINT AT 14,2; ' 
"■" "■" 

41B NEXT N 

420 LET P=( ( (100*M)+M)+P) 

422 BQTO 235 



ZX81 CAME 



449 IF W=l THEN GDTD 500 

450 IF X=l THEN GOTO 500 

451 FOR N=l TO 12 

452 PRINT AT 3 , 17; "BULLSEYf 

453 PRINT AT 3,17j" 

454 NEXT N 

455 LET P*>< <<10*M>+M)+P) 
460 GOTO 235 

500 FOR N=l TO 12 

501 PRINT AT 3, 16; "TREBLE 7" 

502 PRINT AT 3, 16j " 

503 NEXT N 

504 LET P=( ( (20»M)+M)+P) 

505 GOTO 235 

547 IF W=l AND W=X THEN GOTO 60 



550 IF Y= 



AND Y=Z THEN GOTO 60 



551 FOR N=l TO 12 

552 PRINT AT 3, 17; "WINNER" 

553 PRINT AT 3,17; " 

554 NEXT N 

555 LET P=(((2*M)+M)+P) 
560 GOTO 235 

600 FOR N=l TO 12 

601 PRINT AT 3,16) "DOUBLE 7" 

602 PRINT AT 3,16; " 

603 NEXT N 

604 LET P=( <<7*M)+M)+P> 

605 GDTD 235 

1100 PRINT AT A,B; M , . " ; AT A- 
l,Bj" L "jAT A+2,B|" U *-l "t< 
T A+3,B[" C I "(AT A+4,B|" K | 
"jAT A+5.B;" Y 1 "(AT A+6.B;" 
* * ";AT A+7.B; " ■ ■ " 
1150 RETURN 

1200 PRINT AT A,B;" mm "[AT A 
!.,TI;" Wmm "[AT A4-2,8j"W "ti 
T A+3,B[" T "[AT A+4,B;" AJ 
■ ";AT A+S.B;" ■■ " ; AT A+6,B[" 

W "[AT A+7,B| " ■ " 
1250 RETURN 

1300 PRINT AT A,B;" "[AT A 
1,B;" .ML. "[AT A+2,n; " JHHL "; 
T A+3,B; " ■■■"[AT A+4,B; " MB 
|";AT A+5.B;" MT";AT A+6,B; " 

— ";AT A+7,Bj " 

1350 RETURN 

1400 PRINT AT A,Bj", ■ " [ AT A 

1,B;" "jAT A+2.B;" JB U "; 

T A+3.B; " jmm. "; AT A+4,B;" *■■ 

""[AT A+5,Bj" "Mr "[AT A+6,B; - ' 

";AT A+7,Bj " ■ ■" 

1450 RETURN 
1500 PRINT AT A,B|" - "[AT A 

' . r ': " iM i i ": nr A+2,Bj " I i^_I "; 

T A+3.B; " 11-11 "; AT A+4,B;" II" 
|";AT A+5,B; " |^l "jAT A+6.B;" 
■■■■";AT A+7.B; " ■ 



1550 RETURN 

1800 PRINT AT A,B;"— "[A' 

I,B;" ^ "(AT A+2,B;" ^ * 
T A+3,B;"U« " ; AT A+4,Bi" 
1";AT A+5,Bj" « V ";AT A+6,1 

/I "[AT A+7,Bj " ■ « " 

1B50 RETURN 
2500 PRINT AT 18,4; "EnGESAEID 



2505 INPUT J* 

2510 IF J*="A" THEN GOSUB 3000 

2515 IF J*="B" THEN GOSUB 3050 

2520 IF J*="C" THEN GOSUB 3100 

2525 IF J*="D" THEN GOSUB 3150 

2530 RETURN 

3000 LET B=2 

3005 FOR N=l TO 6 

3010 LET W=INT (RND»6>+1 

3020 GOSUB U00*W>+1000 

3030 NEXT N 

3040 RETURN 

3050 LET B=9 

3055 FOR N=l TO 6 

3060 LET X=INT (RND*6)+1 

3070 G05UB <100»X)+1000 

3080 NEXT N 

3090 RETURN 

3100 LET B=16 

3105 FOR N=l TD h 

3110 LET Y=INT (RND*6)+1 

3120 GOSUB U00*Y> + 1000 

3130 NEXT N 

3140 RETURN 

3150 LET B=23 

3155 FOR N=l TO 6 

3160 LET Z=INT (RND*6)+1 

3170 GOSUB <100*Z>+1000 

3180 NEXT N 

3190 RETURN 

4000 SAVE "H" 

4001 GOTO 4005 

4005 PRINT AT 6,5; "*MONEY*MONEY* 
MONEY*MON" 

4010 PRIN T AT 7,5; "M^^^^— — 

4011 print at b,5; "oi r.nr.p 

IY" 

4012 PRINT AT 9,5; "N| IIULT 
GAMBLE I*" 

4013 PRINT AT 10,5; "El t* 1 1 1 I L. 



4014 PRINT AT 11,5; "Y| IIH „n 

4015 PRINT AT 12,5; "*| Ullll J 
ZXB1 |M" 

4016 PRINT AT 13,5; "M| I III! ■ 



4017 PRINT AT 14, 5j "0| 



401B PRINT AT 15, S j "NL— ^^^^^ 

401V PRINT AT 16,5) "EY*MDNEY*MON 
EY*MONEY*«" 



4025 INPUT G* 

4030 IF G*<>"" THEN GOTO 4020 

4035 IF G*="" THEN GOTO 1 

4050 CLE 

4055 PRINT AT 0,1 



4060 PRINT AT 1 ,13) "MT'fCHR* 151 
|"MMB"|CHR* 151] "I^^HiM";C 
HR* 151; "■■"iCHR* 151;"H^H" 

4065 P RINT AT 2,0;"1";CHR* lSlj" 

— "|CHR* 151 1 " ■■MM" t CHR* 

l^i ; "■■■■■Mr ;CHR* 151; "V 

4070 PRINT AT 3,0;"Hm^HH 

4075 PRINT AT 4,0; "MB" ; CHR* 15 

i; -'mmmmmafiCHRt i51;"hhhmtb 

40 80 PRINT AT 5,0;"^";CHR* 1 51 

40B5 PRINT C\7 6 , ; " «■■——■■ " 
;CHR* 151;"W;CHR* 151;"MMBHI 
■■";CHR* 151; "■"[CHR* 151;"«r 

4086 PRINT AT 7,0; "M RIP V' 
;CHR* 151;"^HV;CHR* 151; "■II 
■";CHR* 151; "■■W|CHR* 151 

4087 PRINT AT 8,0; "BV -— ■■ 
■";CHR* 151 ; "MMfc^HM" ; CHKT 1 
51;"1";CHR* 151; "^B" 

4088 PRINT AT 9,0; "■■ ALL > 

^ BHHHaB » . CHR3L 151; "■■■■■" ;CH 



40B9 PRINT 


AT 

JR$ 

AT 

15 

AT 


10,0; 
151," 

11,0) 


b5 


PERSONS 






4090 PRINT 
■■■" ; CHR* 

4091 PRINT 


— 


MHO 


12,0; 


151; 


NEVER 


4092 PRINT 


AT 


13,0; 
CHR* 

14,0; 


PAYED 








4093 PRINT 


AT 




4094 PRINT 


AT 


15,0; 






AT 
AT 


16,0; 
17,0; 




L 

4096 PRINT 


Wi 



4097 PRINT AT 18,0;" — ■■§ 
■* PRESS N/L TO 

4098 PRINT AT 19,0;" - 
■ GET EVEN 

4097 PRINT AT 14,5;P; 

4100 INPUT L* 

4101 IF L*="" THEN GOTO 1 

4102 IF L*<>"" THEN GOTO 4100 

4150 CLS 

4151 PRINT AT 5,5; ' 



4152 PRINT AT 6,5 

in 1 1 i" 

4153 PRINT AT 7,5: 
-llll I" 

4154 PRINT AT 8,5; 
J 1 1.. I" 

4155 PRINT AT 9,5; 



I nil r. i 

klllLIM 



4156 PRI 
K EVEN | 

4157 PRINT AT 1 



AT 10,5; " 



415B PRINT AT 12,5; " 

4159 P RINT AT 13,5; " L PUM 

BB3M J" 

4160 INPUT E* 

4165 IF E*<>"" THEN GOTO 4160 

4170 IF E*="" THEN GOTO 1 

4250 CLS 

4251 PRINT AT 5,2; "^— — ^— 



4252 PRINT AT 6,2; "IBANK OF ZXS1 

I" 

4253 PRINT AT 7,2; "| 

4254 PRINT AT 8,2; "| 



4255 PRINT AT 9,2;"|PAY THE BEAR 
"IWHO HIS VER 



ANYMORE WO 
FOR THE 

NERVOUS S 



4256 PRINT AT 10,2; 
Y LUCKY, BECAUSE I" 
4237 PRINT AT 11,2; 
ULD BE TOO MUCH |" 

4258 PRINT AT 12,2; 
BANK MANAGERS |" 

4259 PRINT AT 13,2; 
YBTEM TO STAND |" 

4260 PRINT AT 14,2; 

I" 
4265 PRINT AT 15,2; 

4270 PRINT AT 16,2; 



4274 PRINT AT 9,18|" 

4275 INPUT Y* 
4280 IF Y*<>"" THEN 6QT0 4275 
4285 IF Y*="" THEN GOTO 1 



£";P; 



I HARDWARE NEWSl 



The Puller phoenix 



In the dim, dark ages Fuller had their fingers burnt. 

gained a good reputation as sup- So Nordic Keyboards of 

sound boxes, keyboards etc. for when they decided to retain the 

iheZXBI . Fullernamewhemhey took over 

designed up market replace- The FDS Executive is the up- 
mentkeyboardandfromthenon dated version of the keyboard 
they 'lever sft:nir,'rj if> he out of and looks identical exc " " 
trouble, the board is corm-uieii hy a rib- 
ling to gat one and the range of does not need the to\ 
"reasons" for nondelivery was Spectrum to be remuverl l 
varied indeed: The quality of the price is also slighily higher 
first batch was not acceptable £59.95. 

i behind with ourorders. Personally I wish them w 




Then 
factory. ^ 



ikform 



it to thisandot 

and duce, although I .-. 



Opus option 








Research interface then you will 




lier ol iionv 


havetogetapowersupplyfitted 


puter hardware. Th 






















































the Spectrum. 




something to put it on, and Opus 


The latest add) 


































Prices range from £60. 00 for 








pri C es h ' C the°hav e a 


nt reduced a 


^^ndVow'Tyou^n't live in 




1 00 K drive 








yourself of Iheir goods as Boots 




a Spectrum 




via the excellent 


Technology 





ocrtecr il you have a run st.-jriM.yd keyboard fitted ar 
ju are frequently yhanyiny iienphmns as il is cheaper 



• Cii'T-.hrukjfi Systems Technology are developing thy 
lares, their Q-PI Cunrror-.i!-.'; ;:-;i - m 1 1 ■■ .■ I interface has been i 
£50.00 + VAT. 

They also have a full implementation of the try 
iE-438 protocol interface on sale, the Q 4 SB . Us cm 
■nlabl.jii- ■ hi: rimy Mi joimq to press, but more informa 
lained from CST, 30 Regent St., CamnnrluM. CEO I 



£199.95. 

hope to be looking a I one end and rajmrfng '■>■ 



ate" interface is use 



iwVL 



■programming feature! 



First steps in 
Machine Code 



Part 2: Working with registers 




An introduction to 280 Machine Code 
by David Nowotnik 



concepts of the Z80 micro- 


two characters is 'FF', which is 


from outside the CPU. One way 


-r ..'-■jn 


h bte^l e ad the e conter, a tsc! 


processor, machine code and 


355 in decimal. And thai just 


to do thisis to load data from the 








happens to be the highest value 


program. For example, the in- 


of the 




gramming. Using those con- 


that can be stored in a byte (or in 








cepts, 1 gave a few simple ex- 










amples of moving data to and 


value can be defined by a two 


LD B.n 






from the Z80 CPU. To remind 


character number using hex 




nryis[~r 


s special. For example. 


you of the internal layout of this 


(e.g. OA for ten, FA for 254 


will load the B register with a 




egister in which all one 


CPU, the diagram of the CPU is 










shown again this time (fig. 1 1. as 


Some of the other advan- 




SO, [he 






tages of hex will become 


as a two byte instruction. The 


LOAD A 








first byte is 06 hex. which is the 


register 


You can load the A 






opcode for LD B.n. The value in 


,.-;j,:,l-r 


with the contents of a 


transfer data from memory to 






byte tr 




the internal registers of the CPU . 




aiely following this opcode is 






But before we begin with these 


conversion program (suitable for 






ts a memory address. 




both ZXB1 and Spectrum!, in 




,r,l . 


may remember from 




Fig. 2, and, later, two new 






that the brackets mean 






bytes (opcode and'operandl 




entsof'.LDA.Immlisa 






were 06FB, Then the value FB 


3 byte 




This numeric system is called 




would be loaded into the B 


code; I 


e fisi byte 13A) is the 


hexadecimal Icommonly ab- 




register. All the other registers 






breviated to hex). 




can be loaded from the program 




and high byte respec- 


Hexadecimal 


More LOADing 


in the same way, and all the 


lively of 


the address of the byte 






appear in table 2. Remember, 


Simi 








you must have a second byte to 




irectly from memory; 


every day life is called decimal. 


LOAD. It happens to be themost 






dd, (nn), where dd 


To use decimal, we have 10 


frequently used machine code 


You can, if you wish, load a 




tsHL.DE.orBC.When 


characters (0 to 9) which we 


operation of all. There are 


register pair directly with a 


ddisHL 


there is a single opcode 




several variations on LOAD; the 




(2A), fc 


lowed by a two byte 




simpler and most frequently 


use two instructions. From last 




To load BC or DE a two 






time, you will recall that the H 




pcode is required. 




The simplest of all are the 


and L, B and C, and D and E 




d by the address 


The computer, however. 


series of LOAD commands 






The address operand 


finds decimal cumbersome as it 




they affectively can hold any 






has eight 'fingers'; the number 


register to be copied into 


number between and 65535 








another register. The BASIC 


(00 to FFFF hex). C,E, and L 




the next address in 


memory When using BASIC, 


equivalent is LET B = C [for LD 






after the operand ad- 


the interpreter in ROM 


B,CI; the originating register 


while B,D, and H are the high 




loaded into the high 


translates numbers to decimal 












it holds (a number between 00 




For y 


at more flexibility, you 




and FF hex) is copied into the 


machine code instruction to load 




the HL register pair to 


easier to adopt the computer's 


other register. A single opcode 


a regisler pair directly. The first 






numeric system. This is a 




is the opcode, the second is the 






system which has 16 


1 displays the opcodes for all 






Thus. LD r.(HL) - 


characters [two hands' of eight 


possible inter- register transfers. 










There is no equivalent instruc- 


go in the high byte. Note that the 










low byte proceeds the high byte 








register pair into another pair. 


in a two byte number. This is a 










280 conversion, and we'll see 


HL regi 






single register transfers, e.g. 


more of that in a moment. The 


















LD H,B 


appear in Table 2. 


rftyi-l,;. 


allows the BC and DE 




LD L.C 




nx|lil,:l 




'B'. and so on up to 1 5, which is 




are equivalent to. for example, 






'F' hex. Sixteen is then ' 1 0' hex, 




LET B= 5, or LET BC = 1225 in 


A.iBCIi 




and 26 decimal is ' 1 A' hex. The 


It is, of course, necessary to 


BASIC. For more flexibility, you 


Whe 


eve. it is possible to 
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ill 




by the value of the HL regists 

The final LOAD instruct; 

for now allows you to placi 



Simple Arithmetic 

Compute's wouldn't get ver 



highest possible) 

>; similarly, DEC A' 



registers. So, beware. INC HL is 
not the same as INC H andlNC L. 
Again, the examples should 
clarify any doubts about INC and 
DEC. 

A Simple Loop 

With the machine code I have 
given you so far, it would only be 



with the RET instruction, return 
to BASIC. From BASIC, you will 
have learnt the power and utility 
□f FOR. .NEXT loops; it's 
possible to do a similar thing in 

tion DJNZ n. 

The letters stand for Decre- 
ment B and Jump if Not Zero. 



ative jumping (as PC is 



implemented. examples - that is NOP. It simp- 

How the value of n controls i v means do nothingl it is 

allows youtojump both forward u\ PAUSE. NOP only slows 



wNOP'slinaloopIto 



machine code. So, GOTO II 



PC = PC-(256-nl. 
commonly occuring 
ing maching code is 



how registers can be manipu- 
lated; we'll start now with some 
simple arithmetic. Next issue I'll 
demonstrate addition and sub- 
traction in machine code, but if 

register (or register pair) then the 
Z80 provides a simple way of 



ariableinaFOR. . NEXT loop 



ir that from last time?) 



iions are just one byte long (the 



then PC is incremented in the 

instruction (immediately follow- 



Figu-el «■' '<> dec convenor, program. 




10 LET AS -"0123456789 A8CDEF" 




100 INPUT BS 




110 IFB$ni-"$" THEN GOTO 300 




120 LETZ = VALBS 




130 LETA = Z 








150 IF A = THEN GOTO 400 




160 LETR-INTIA/161 




170 LETS = A-16*R 




180 LETH*=A$(S + 1I + H* 








200 GOTO 150 




300 LETHS = BSI2TO) 




310 LETZ = 












340 IF HSIJI - AS (I) THEN GOTO 370 




350 NEXTI 




360 STOP 








380 NEXT J 




400 PHINTZ.HS 




410 GOTO 100 




This pragiam intercanveia decimal and hex m. 


moers When you ninths 


















On th* Spectrum, th* should be A 















Table 7 Opcodes lo, fading ««*», , e gls<^ 






feflWtf.AHWnfeVtaWj 


ge listings torZXS 7 Example 7 






LD r.r 1 






LDHL, 1163961 
LDB.32 


2A0C40 Start ot display file 
0620 loop counter set 












LOOP INCHL 


23 Next place in display 
3621 Put '5' on the screen 












LDIHU.33 






A B C D E H 
Loadto: A 7F 78 79 7A 7B 7C 


70 




DJNZ LOOP 
RET 


1 FB Jump back to LOOP 
C9 or return if 32 done. 






A 47 40 41 42 43 44 


45 




LDHL.11 G396| 


2A0O40 Start of display file 






Ir'l C 4F 48 49 4A 4B 4C 






LDA.22 


3 El 6 Number of rows 






D 57 50 51 52 53 54 






LDDE.30100 


11947 5 Place to store row 






E 4F 58 59 5A 5B 5C 


5D 




LD<DE).A 


1 2 counter 






H 67 GO 61 62 63 64 






ONE LDB.32 


0620 No. of columns 






L 6F 68 69 6A 6B 6C 


6D 




TWO INC HL 


23 Next screen position 






LDf.n LDdd.nn 






DJNZ TWO 


10FB Jump back to TWO" 










INCHL 


23 Jump over NEWLINE 






LDA.n 3E LD BC.nn 






LDA.IDEI 


1 A Check on row counter 






LDB.n 06 LD DE.nn 






LDB.A 


47 






LDC.n 0E ID HI .mi 


21 




DEC A 


3D 






LD D.n 1 6 






LDIDE),A 


1 2 Store the row counter 






LDE.n IE 






DJNZ ONE 


10F2 Jump back to "ONE' 






LDH.n 26 






RET 


C9 unless 22 rows complete 






LD L.n 2 E 






LDHL,I16396I 


2A0C40 Start of display file 






LMdtng fiW^nwSo^T " "'*' '"ISJ to memory 






LDDE, 30100 


119475 Column counter 










LD A.30 


3E1E Number of columns 
1 2 stored ' 






LDA.fnnl 3A LD (nnl.A 


32 




LD IDE). A 






LDA.(BC) OA LDtBCl.A 


02 




ONE INC HL 


23 Next screen address 






LDA.(DE) 1A LDIDEI.A 


12 




LDIHLU3 


3621 Place '5 on the screen 






LDA.(HL) 7E LD (HL).A 


77 




TWO NOP' 


Delay loop 






LDB.IHU 46 LDIHU.B 






DJNZ TWO 


10FD 










LO (HL1.0 


3600 EraseS' 






LDC.IHL) 4E LDfHD.C 


71 




LDA.IDE) 


1 A Check on column counter 






LDD.IHU 56 LD(HL).D 






LOB,A 








LDE.IHU 5E LDIHU.E 


73 




DEC A 


3D 






LDH,(HL) 66 LDfHU.H 


74 




LDIOEO.A 


1 2 Replace counter value 






LDL.(HL) 6E LDIHU.L 


75 




DJNZ ONE 


10F0 Jump back iu ONE 






LD BC,|nn| ED4 B LD (nnl.BC 


ED43 




RET 


C9 Unless all done. 














LD DE.lnnl ED5 B LD (nnl.DE 


ED63 




10 CLEAR29999 








LDHL.Innl 2A LDInnl.HL 


22 




20 LET X = 30000 
30 READa$:IFa$="s 


" THEN STOP 






|LD(HLI,n 361 






40 FORi=1 TOLENaS 


STEP 2 




















ABCDEHLBCDEHL 






60 FORj=0 TOI 








INC 3C 04 0C 14 1C 24 2C 03 13 23 






70 LET r= CODE (aS(i 


i)) 






DEC 3D 05 CD 15 ID 25 2D 08 IB 2B 






80 LETs- r-48-lr 57 












90 LETy = y + 16#s* 
1 00 NEXT j 


i*0)*s*lj = 1) 














Figure 3. Hex fader program. 






110 POKE 'x.y: LET x = 












120 NEXTi:GOTO30 








30 POKE163B9]l17 






2000 DATA"s" 
1000 DATA "210056 








60 POKE x, n 6 * ICODE MS (CI - 28 ] + (CODE MSfC + 1 






1194753E1612" 






-28)] 




1010 DATA "062036 


B72310F81A473D" 






B0 NEXT C 






1020 DATA "1210F3C9" 






30 LETMS= , '2AOC40062023362110FBC9" 

30 LET IVK ="2 A0C403E1 611 947512062023362 






ta aboil but change 1 


le 1 000 to 






10 




1000 DATA "210040 


1194753EC812" 






FB231A473D1210F2C9" 














30 LET M$ = "2 A0C40 11 94753 E1 El 223362 106 






1000 DATA "210058 


194753E0612" 






FF0010FD36201A473D1210F0C9" 






1010 DATA"3E00329b/b3A9b/bU6HU" 
1020 DATA"772310FC060B3C10FD" 












1030 DATA"329575 


1A473D1210E9C9" 






appropriate section! substitute the line 30 in ex 




you'll get a screen full of " 






amples one to Ihree. th 


en RUN, instantly (try that in BASIC 


.The Also, try varying the hex 




followed by the direct c 


nmmand final .-..ompl.r w.ll u.iv« yu 


a '5' numbers underlined Igenerally 




2X81 Examples rand usr 30000 to 


activate dashing across - don't b 


" k ° r whaf havens nUmberl "^ ** 




All examples use th 


display Space doesn't permit t 


ofull 




To trv the machine code file; thai is, you'll see I 












utfor spectrum 




Type this in and SAVE it The In example 5, you'll get a row language listing, una ass 


T*$ Examples 




7t?^ir^?io":i tK 5 ^T 6 i n on :s:zt zzzgzs^x 


next My S pact ru m ma c h i ne code hex 


► 
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n; 





■PROGRAMMING FEATUREI 



It. The 
in DATA 
e 1000 


the Spectru 


II exam pies use 
tl'S display or 


A lines 
00 as the 

program 


program, then 
30000. and » 


propriate DATA 
n fig 5) RUN the 
call the machine 
ftNDOMIZE UR 



assembly language listing 


you un 


erlinedinFig 5. Good luckl 


Figure 6 Assembly Umym 


,..■,..,,„.,-,- 


eSgBoeum. Example! 


LD HL.22528 


210058 


Start of the attributes 


LDDE .ll'illlO 






LDA.22 


3 El 6 






12 




LD B.32 


0620 


Column counter 




367F 


Attribute value 


INCHL 


za 












1A 




LDB.A 




copy in B 


DEC A 


3D 




LD(DE),A 






DJNZ ONE 


10F3 




RET 


C9 






as! exce 


tfor the first three lines: 


LDHL.163B4 


210040 


Start of display file 


LDDE.30100 




Storage byte 


LDA.20D 




Loop counter. 





Sample 3 








LDHL22528 


210058 






LDDE,30100 


119475 


Storage byte 






3E06 






LD<DE),A 


12 








3EO0 


Attrihute value 






329575 






LD A. (301011 


3A9575 


Recover attribute value 




LDB.128 


0680 














INCHL 


23 






DJNZ TWO 








LDB.B 


0608 


Add eight 


THE 


INC A 
DJNZTRE 


3C 
10FD 


to attmbute value 




LD (301011, A 








LD A.I DEI 


1A 






LDB.A 


47 






DEC A 


3D 


Counter minus one 




LD1DE1.A 


12 






DJNZ ONE 


10E9 






RET 








Tortoise-wise 

or more lines from a parent who gets 
left behind. By David Stewart 




for help. There is such a thi 

loyalty and safety in numb 

The Tortoise moves oi 



thought I might le 



I plod on through the manual 
wondering if being useless at 
languages has got anything to 
do with the pitifully slow pro- 
gress I make. Or is it Maths I was 
useless at? Or both? And why 
do they call BASIC a language? 
And if there are other languages 



:-."■'"',' k 


- h T d 


of the day. Th 


"1 doubt it 




oping one 


enough. To them, tha computer 


for computers are there 
mure suited to Tortoises? V 


hM 


The t 














are the differences anyv 


*vf 


























We Torto 






graphics impress them. Hackers 


ning 1 know they'll laugh at 




noiogy 




other Tortoise 


together. 1 th 


J™," 


ha e Hares 


to get words like INPUT, POKE, 


go back into my shell, Tort 


ISO- 



I COMPUTER SOUND I 



Music Micro Please! 

An outline of some of the more 

harmonious programs and devices 

recently produced. Ray Edler takes up 

the Baton and conducts the 

investigation. 

For the professional/dedicated/ ZX81 and Spectrum, available gaps which left me gq 

expert musician there is the Midi from Newtech Developments the use of the E 

interlace and synthesiser Ltd. Cost ranges from £24.95 Benefatorfor instanca 

system, but for many others, In- to E26.9B depending on model ware itself is good ai 

eluding yours truly, the cost of and Internal amp fitted or not you to create tunes in ' 

such equipment is beyond the WILLIAM STUART mow anr !• .ur ,., ,- 

realms of an overdraft. SYSTEMS sound generator this means that it 

though much less versatile^ its own III plugged into a" stereo latent, an error eariv^ 

alternatives. system it sounds superb). Soft- re-entry or the rest ol 

Env+al , warB ' 5 avail3blB separately and During playback t 

rOrte! is excellent, the AHP program linesof music ate show 

An essential first step is to do FULLER (reinstated b^Nor- a^^taU^^W^h'o 




jally nonexistent and th 



t which i 



ckaging is nice. very good, the a 

And finally DK'TRONICS 



And Finally 



e and shape is a full happ h, spr.-r.i j 
"— 'SBT. This is 
lip and is sup- 
:> tape. Cost 



... --8910/ Sound Synthe,,^,. 

££&.&?&"«»£! &s& K Z«*z**x2: !^^. an i™P-^ S 



■ation of the The nir'» mH i» 1 peripherals, in,.: Technology MUSIC TYPEWRITER from 

^ed in several T " e D ' fl "011105 3 Research Disk drive unit func- Romantic Robot, 113 Melrose 

ist expensive Channel SOUnd f '" rih, -"- l; ; '"- : " li:r "* a ^>>< Ave. London fJW2 4LXisa very 

;. Beepamps Unit ware suppliedTo d sT Th'" p,ofessional P' eceof P'°g'emm- 

in .h°Tv er °h , ZXL ^ nl l!l Centronics unit a ,so BrS'seTpresaMaWon e,™ 

i the iv and I w.ll q, us a retailed a;:, ounr of ■un or the back quite happily, and 

this unit as it is one of the few of course DK's own units 

..--.. -|. ,.,..,!■„. 

of the others had to be returned compatible ' j", aVe a ™ "°S P 1' 

p v..,,u, a .inns same sue oox as after each specific review, and oriavoV irphin rih 

their other units, complete with anyway its one of the latest on Hair a Mucir «?fVJfl5?7™ a 

a full through port fo. other the market and most are simMa" HaKe M "SIC 23-255MMImetronom £ 

peripherals. Cost £9. 95. in operation Is a c-roaram Drod rt h menu driven and upto 1 1 

unifThi^is rimaril ff^h a ^b '* SUBP ' ied ** "" "^ ' K ' a **" Which *"*** "me" 5 "' ' n """"^ 

worthconsiderlngifyouwantto through a little hole in the top of to emulate a" 'hree'^r'ack I'm^m pressed? "^ "™° 

a7wel| 9 Cos\£29 O 95 0fS[ ' i;lli ' r! .'''nou'-l'i '"" """''-* '"'. '" l " i r/u^^octss'mnmn^ ^ A keyboard overlay is 

sSS RJ 2Sr s r" ^ : r M ^-SSS SoSSHhS 

the Soect niutitw '■. -h " " ""'■'"'■ ""' •■■" « 'm ni i snow, me omy UosttS.F'" 

ecurely. Cost El 4. 95. Most or" "hTm'aT.uol 

THE TRICHORD, a full sound dedicatee i: >|,.mi ,,q v 

ox including AY chip, amp and tions for i- • -■•■,:,.:- „ „ 

peaker and software for both these are ;.■ gf and (here 
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SPECTRUM CAME 



Green 

boing! 

The classic Froggy arcade 
game has been superbly 
programmed by Thomas 
Baker who hops around 
Cheshire 



1 


REM 














*Under 


intd character 


-a* 






(are * 


t«red in 


* 




LET 


♦GRAPHICS 


mod*. 


* 


2 


hl-0: LET 


H-B 




3 


POKE 23639 


b: 


LET a«--GG 


;gg 


CGcgsg 


-BOGOC 


■SSSS5 ggggg' 




4 


POKE 3229a 


2: 


POKE 32308 


3: 




32320,1 : POKE 32333,3 




5 


LET 


h-0 








* 


BORDER 4: 


NK 


l: PAPER 3 


C 



7 LET 9-0: LET 1-3 

S LET tc-0 

9 LET td-3 

PRINT AT 0,0|n* 
GO TO 47 

2 FOR n-1 TO 1000: IP INKEY*- 
THEN NEXT a 

3 IF a-1001 THEN GO TO 2 

4 LET j i-l: GO TO 2 

5 LET J~y-(K-2)-(X«B)*(lt-41 + l 
AND y<>31) 

6 RETURN 

7 LET y-y'lx-6 OR «-- i)-(x-B O 



j Id there 

of 200 






K-2) 



*10> * 



INT <RND 



makes unexpected ar. 



RUN it and enter the numbers in 
the graphic data list. NEW the 

the main listing. Once this has 

GOTO 9999 and save the 

sections so be ready to keep 

Good luck and happv hopp- 



22 IF z<>0 THEN LET z-i-1: IF 
i-0 THEN PRINT INK 11 PAPER 5 
IAT 0,0|a*: RETURN 

Z3 IF K>0 THEN RETURN 

24 IF v>3 THEN RETURN 

25 LET d-5+(v*7t: LET r-Z 

30 IF SCREEN* (0,d)-" THEN R 
ETURN 

31 IF h>-8 THEN LET P-INT (RN 



32 IF r-2 THEN PRIf 
INK 21 PAPER 51 ". " 

33 IF r-1 THEN PRINT AT 0,d| 
INK 21 PAPER 5( INK 21 PAPER 5| ■ 




SPECTRUM CAME 



39 IF 
TO 2000 

40 GO TO 290 



THEN LET y 

THEN LET ; 



NT INK 21 " 



INK 91 -brbbB 



t,0 PRINT 






70 PRINT 


INK 


2i -geoee aeeee 


aeeeee 


OBPO 




80 PRINT 






90 PRINT 


INK 


0i- «eee eeee 


PBCBRR 






100 PRINT 


INK 






110 PRINT 


PAPER 61 INK 4| • 


120 PRINT 


PAPER 01 INK 61"*^™ 


130 PAPER 







140 PRINT 


INK 


4| ■ BE GEE 


DE CDCDg 




150 PRINT 






160 PRINT 


INK 


21 BRIGHT 11 "5iy 


170 PRINT 






1B0 PRINT 


INK 


31 "MI JK1, 


JKUKL 




190 PRINT 






200 PRINT 


INK 


5| "89 


QBE 


e§ 




281 PRINT 


INK 






ER 3 , , , , 






202 PRINT 


AT 2 


.01 PAPER 31 INK 


01 -scans- 




L i vea- H i - 



203 PRINT AT 21,6) PAPER 3| INK 




0ls: PRINT AT 21,181 PAPER 31 I 
NK 0)1: PRINT AT 21,26) PAPER 31 
INK 01 hi 
204 IF j<-l THEN GO TO 21S 

211 PRINT AT 10,51 PAPER 61 INK 
01 "Press any key to start" 

212 LET t-USR 32295: LET t-USR 
32344 

213 IF INKEY*-"" OR INKEY*-"p" 
THEN GO TO 212 

214 PRINT AT 10,0) PAPER 6,, 

215 LET ti-194: PRINT AT 10,01 
INK 01 PAPER 61 "TIME-": PLOT IN 
K 3145,91: DRAW INK 31139,0 

220 GO TO 000 

231 LET i-0 

235 PAPER 11 INK 7 

240 LET k-kI: LET y-yl 

250 PRINT OVER ll INK B| PAPER 
QJAT x,yl -F- 

251 PLOT INK 31 INVERSE 11ti,9 
11 LET tl-ti-l: IF ti-44 THEN L 
ET l-l: GO TO 2000 

252 IF h<4 THEN GO TO 255 

253 LET tc-tc+l: IF tc-20 THEN 
GO SUB 5000 

234 IF tc-24 THEN GO SUB 5020 
255 IF h>-2 THEN GO SUB 21 
257 IF tc-30 THEN GO SUB 5100 

260 PRINT FLASH 0( OVER II INK 
81 PAPER B|AT K,y|"C" 

261 IF h<8 THEN GO TO 280 

262 IF td=24 THEN GO SUB 5012 

263 IF td=30 THEN GO SUB 5013 

264 LET td-td+l: IF td-20 THEN 
GO SUB 5011 

200 IF ATTR (x,y>=41 THEN GO T 
O 2000 

284 IF SCREENS <x,y)-" THEN G 
O TO 35 

285 IF KOlfl THEN IF SCREEN* ( 
x,y>=" ■ THEN GO TO 2000 

286 IF INKEY*""" THEN GO TO 30 

290 LET y=yHINKEY»=-x" AND y<> 
!>-<INKEY*="z- AND y< >0> 

292 IF INKEY*-" 1" AND «<>li THE 
I GO SUB 17: LET X=X*Z 

293 IF INKEY*="p" THEN GO SUB 
15: LET x=K-2: LET -i-«+10: PRINT 

AT 21,61 PAPER 31 INK 0|s 
301 IF x=0 THEN GO TO 600 
305 LET t-USR 32344 
310 GO TO 250 

600 IF SCREEN* l*,y)*'" THEN G 
D TO 2000 
610 LET b*=SCREEN* !x,y) 
620 IF b*-*." THEN GO TO 700 
630 LET a*(y + U-"E" 
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636 
640 
POKE 
323Z 
649 
646 
POKE 



E 32332,5 

647 
POKE 

648 
POKE 

649 
POKE 

650 

PRIN - 

STU 

651 
652 
653 
655 
INK 



.ET h-h + 1 

:F h-1 THEN POKE 32308 
32296,4: POKE 32320,6: 1 
2,3 
F h-2 THEN POKE 32332 
F h-3 THEN POKE 32308 
32296,5: POKE 32320,4 



F h-5 THEN POKE 32296 
2320,5: POKE 32332,6 
F h-6 THEN POKE 32296 
2320,6: POKE 32332,7 
F h-7 THEN POKE 32296. 
2320,7: POKE 32332,8 
F h-4 THEN POKE 32308,15: 
14,0| INK 21 PAPER 01 " 



[F h-9 THEN POKE 3230B,18 

:F h-10 THEN POKE 32308,20 

IF h-12 THEN POKE 32308,23 

:F h-8 THEN PRINT AT 14, 0| 

PAPER 0P p 5iy & 

h-14 THEN PRINT AT 14,0 
21 PAPER 9J-3iy Sit! 



THEN LE 



i/B)-INT <h/8 



661 IF h-8 THEN POKE 32296,9! 
POKE 32320,7: POKE 32332,8 

IF h-9 THEN POKE 32296, 12 
! 32320,8: POKE 32332,9 

-10 THEN POKC 32296,1 



662 
POKE 
663 

POKE 
664 



32320. 



FOKE 

663 
POKE 

669 
680 

NEXT 



9! POKE 32332,10 
THEN POKE 32296,12 
10! POKE 32332,11 
THEN POKE 32296,13 
11; FOKE 32332, 12 
THEN POKE 32296,14 
12: POKE 32332, 13 
h = 14 THEN POKE 32296,15 
32320,13: POKE 32332,14 
F h=*15 THEN POKE 32320,14 

32332,15 
F h-16 THEN POKE 32320,19 
v-1 TO 5: FOR m-1 TO 5: 
BEEP .003,0: BEEP .003, 



10: BEEP .003,20: BEEP .003,30: 
BEEP .003,40: BEEP .003,30: BEEP 

.003,20! BEEP .003,10: BEEP .00 
3,0: NEXT V 

685 LET ti=184: PRINT AT 10,0; 
INK 01 PAPER 6I-TIME--: PLOT IN 



K 31 43, 91 J DRAW INK 3! 139,0 

686 PRINT AT 0,0; PAPER 5| INK 
l;a« 

690 GO TO 800 

700 PRINT AT 0,y-l; FLASH 1; IN 
K 2{ PAPER 5t "200" 

720 LET »»<y+ll-"P" 

725 LET s=s+200 

730 GO TO 636 

800 LET x=20: LET y-16 

810 PRINT AT 21,01 PAPER 3; INK 

0; -Score- Llv»«- Hi= 

820 PRINT AT 21,6; PAPER 3) INK 

0;s: PRINT AT 21,18) PAPER 3) I 
NK 0E1: PRINT AT 21,26; PAPER 31 

INK 0]hi 

830 PRINT AT 10,231 INK 2; PAPE 
R 61 -LEVEL="Jh 

835 PLOT INK 3; INVERSE l|ti,9 
1: LET ti=ti-l: IF ti-44 THEN L 
ET 1-1 : GO TO 2000 

840 LET r*-INKEY«: LET »l-x+(2* 
Cr*=M" AND x<>20> > - (2*< r*=-p ■ > ) 

850 IF Kl-10 THEN PRINT INK 8 
i PAPER S[AT x,y(" • Z LET x=xl: 
GO TO 231 

855 IF r«="p" THEN LET s=s'10: 

PRINT AT 21,61 PAPER 3; INK 0;s 

860 LET yl«y+(r«="x" AND y<>311 
-(r»-"z* AND y<>0> 

870 IF r*-"I" AND y< >20 OR r«=- 
p- THEN BEEP .002,5: BEEP .002, 
20 

880 PRINT INK a; PAPER SiAT x, 

890 LET t=USR 32295 

900 LET x=xl: LET y-yl 

910 IF SCREEN* (x,yl=" THEN G 

O TO 2000 

920 PRINT INK 81 PAPER B;A1 x, 

930 GO TO 835 

2000 IF ti=44 THEN PRINT AT 10, 
0; PAPER 61 INK 01 FLASH 1|"TIME 
-■ I GO TO 2002 

2001 PRINT INK 81 PAPER 81 OVER 
11 FLASH HAT x.yfF" 

2004 LET j 1=0 

2005 FOR W-l TO 100! NEXT h 

2006 PRINT OVER II INK Bl PAPER 
81 FLASH 01AT x,yl"F- 

2010 FOR H=x TO 20 

2020 PRINT OVER H INK 81 PAPER 

81AT w.yl -F- 
2025 BEEP .01,N 
2030 PRINT OVER II INK 8! PAPER 

8|AT H,yl "C" 
2040 NEXT h 



SPECTRUM CAME 



BSE 



2041 LET 1-1-1 

2042 PRINT AT 21,181 PAPER 3; IN 
K 0; 1 

2043 IF 1=0 THEN GO TO 2060 
2045 LET ti=184: PRINT AT 10,01 
INK 01 PAPER fti-TIME=-: PLOT IN 
K 3145,91: DRAW INK 3*139,0 
2030 GO TO 800 

2060 PRINT AT 20,111 INK 21 PAPE 
R 6;'6bik Over" 

2061 IF s>hi THEN LET hi-s 
2065 PRINT AT 0,0; PAPER 41 INK 
01 FLASH I|" PRESS ANY KEY T 
O START 



TO 



,0f INK 3J PAPER 



3010 RETURN 

5011 PRINT AT 2,01 INK 31 PAPER 
5 i OVER 1 1 * 

■: RETURN 

5012 PRINT AT 2,01 INK ll PAPER 
31 OVER 1!" 

■ : RETURN 

5013 PRINT AT 2,01 INK 0! PAPER 
51 OVER ll" 

■: LET td=0: RETURN 
5025 PRINT AT 8,0; INK 11 PAPER 
51 OVER 1! ■ 



,255,255 
, 199,255 
24, 123, l: 



6,32, 



127,255,255,40, 16, 128,6 
254,255,40, 16, 127, 127,1 
7,255,21 ,8,254,254,254, 
55, 64, 128,0, 248, 196, 196 
40, 16, 153,90, 102,60,60, 
,6,170,85, 170,85, 170,85, 
27, 255,20,8,24 
:54, 255, 255, 20, 3, 0,3 1,35 
27,20,8, . 
2, 1,254,254,254,254,254 
16,0,0,3,0, 192,240,255, 
5,35,255,63, 10 
103,63,255, 140 
4 3,255,252,254 
249, 159,254,252,63,56, 1 
23, 124,56,68,224,96,124, 
255, 120,48,0,48,32,243,2 



,252, 



,3,255,255, . 



31, 



,0,25, 126 
',35, 16 



237,82,3 
250,225, 
75,229, 17 



13,32,234,201, 14,8, 

82, 126,25,23,. 
23, 119,43, 16,250,225,36 
3,201,6,2, 197,33, 128,72: 
125, 193, 16,246,6,3,197,33 
,205,244, 125, 193, 16,246 : 
33 , 3 1 , 80 , 205 ,13,126,193 
,3,197,33,64,30,205,244, 
16,24 6,201,6,8,197,33,64 
244, 125, 193, 16,24i 
59,64,205, 13, 126, 
197,33,223,64,205, 13, 126, 193, 16 
246,6,8, 197,33,0,72,205,244, 125 
193, 16,246,201 



13,32,23 
205,24' 
92,72 



,205, 



5040 RETURN 

5110 PRINT AT 8,01 OVER ll INK 

1 PAPER 51 " 

5120 LET tc-0: RETURN 

9998 CLEAR 32243: PAPER 0; BORDE 

R 0: INK 0: CLE : bright 0: prin 

T AT 10,6; PAPER 2| INK 6| PLASH 

11 "Please wait a nonenf: LOAD 
"•CODE : LOAD ""CODE ; RUN 

9999 SAVE "Froggy 2" LINE 9998: 
SAVE "mc-CODE 32243,149: SAVE "u 
dg'CODE USR "a", 168 



30 POKE a.,t 



5 CLEAR 32243 
)0 FOR a=32244 
20 INPUT b 
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Sampler 

Mr w Simister of Haverford west 

describes in graphic detail some useful 

ideas. 



In the game. This 
s one of the simples! parts of 
Diagramming the ZX Spectrum, 



of how the FOR-NEXT loop 

how to' use the PRINT-AT 

To deal with the first require- 

rojtine which appears before 

Sampler, RUN it, and then study 
the checker board square in the 
centre of the screen. It is shown 
in figure 1 . There are 8 squares 
by 8 squares. At the top are 
some numbers, which are read 



128,64,33,16,8,4,2,1. From 
right to left they are (1 ), double 
that 12 ), double that 14 ). double 
that (8 1, double that 11 6 1, andso 





1 t 1 6 a 4 2 1 






! 


1 


1 












I 








1 














1 














1 


1 


1 


1 










1 


1 


1 


1 




1 








1 


1 


1 




1 


1 










1 




1 


1 


















fito-r.Sm 


#*<*"«*****•*>* 





1100000, BIN 00010000, 
SIN 001 00000, BIN 
11111100, BIN 01111110, 



FOR-NEXT loops are equally 
simple to understand. To make a 
graphi 



A different set of FOR-NEXT 
5085. There they are used to 
square. Those two loops should 



; FOR * = TO 



right, and 



Other commands 



5070 LETx 
112 STEP 
PLOTx.y: Di 



n to top. The ThatisenoughaboutFOR NEXT 

34:Fory-4BTO press P for the second SUB- 
and by: 5075 ROUTINE; the PRINT-AT com- 
w64,0:NEXTy mands. Study the screen well 
.wninfigure2).Theposition 



again use BREAK, and then LIST 
ENTER. There are programmers 
who use the 'BIN 11100000' 
format for their DATA lines, but 
they are harder to enter. Study 



I that PLOT-DRAW 



piete screen. PLOT-DRAWcr. 
mands deal with the 64 pii 
(points that can be drawnl 



ib placed 
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012 




















IS . 
16. 

SI. 
Rg2 






















•press M far main program... 






) 5500. 






■nply:RETURN. Al this 00m- 
and (which is part of a 
DSUB-RETUBN routine) the 

eGOSUB command. So 

after 505 GOSUB 5000) and 
this is the main program. The 
scene is set with bushes and 

ara put in afterwards iso that 

In the PRINT -AT commands for 
the bushes a space (or spaces) is 
used between characters. In the 
PRINT-AT commands for the 
animals [lines 8 1 to 840) they 



830 and835,840. 

Motion 



1010.lt provides a good e«am- 


the second elephant (from righ 








altering either of these pauses ti 


make elephant "C" travel 2 






This is a good way to contro 


travel from left to right. In line 




1 1 5 the elephant (now AS ) is 




printedatrow12,ctimeslOTO 


NEXT loops. After the PRINT 




AT statements is NEXT c 




PAUSE 20; NEXT b. The pause 




of 20 (less than H a second 










3: This should be studied. 


its reappearance on the left. Yoi 


Without that pause the elephant 






NEXT b directs the compute 


three times as fast. Note the 




slight difference in movement of 


that the elephant must repeat its 



e well beyond the program 
I 9000 - and work or 
ire without upstntiiig i 



h FOR-NEXT loops i 
!d look at figure 3 w 



9000 
9001 
9002 

9003 
900*t 
9005 
9006 
9007 
9008 
9009 
9010 
9011 
9012 
9013 
9014- 
9015 
9016 
901? 
9018 
9019 
9020 



FOE a = TO 1 

FOR b = TO 1 

FOR c = TO 31 

LET AS = "C" 
PRINT AT 12, c; AS 
PAUSE 3 
PRINT AT 12, c ; " " 

NEXT c 

PADSE 20 

NEXT b 

FOR e = TO 1 

LET BS = "B" 

FOR f = 31 TO 3TEP 

PRINT AT Tf.f; BS 

PAUSE 2 

PRINT AT 14, fj " " 

NEXT f 

PAUSE 20 

NEXT e 

PAUSE 20 

NEXT a 





doerrunsthroughthewood.left 215 FOR x=0 TO 7: 


READ yi POKE 


loops: 'c' inside 'b'., and T in- 
side 'a'. St udy this, and watch it 


ioriyl-,1. slanling n lar(]e running 
bird that doubled back towards 


USR "E n *x,y: NEXT 


x: REM B Eleph 


working. You should never 








again be puzzled by FOR-NEXT 


repeated with a FOR-NEXT loop 


220 DATA 0,48,56, 


126,95, 159, IB, 




(0 TO 5], so that the user can 


13 




The next movement, lines 






1600 to1550.isaflock of birds 




225 FOR x=0 TO 7i 


READ y: POKE 


flying for tight to left. Their 


ing out the FOR-NEXT loop). 
In Lines 2500 to 2535 the 


USR " fi" + X , ■/ : NEXT 


>: REM C Eleph 


Spectrum 'String Slicing' 












230 DATA 0, 12,28, 


126,250,249,72 


which is on page 51 of the 


single bird this time. It is a fairly 


.72 




manual}. Of considerable impor- 
tance is the grouping of the birds 


smooth sort of movement, and a 
careful comparison of line Z525 


235 FOR x=fl TO 7: 


READ y. POKE 


to make a flock. 


with lines 1 525 and 1 530 may 


USR "tl' + x.y: NEXT 


x: REM D Tree 


The DATA for bird "H" in line 




240 DATA 16,36,36 


, 124, 124,254, 1 


260 has three Os at its end, thus 




6,16 




lifting the bird's image to the top 


The final movement in the 






program is achieved in lines 


245 FOR x=0 TO 7t 


READ y. POKE 




3000 to 3060. It is a frenzied 


USR 'E."*x, y - . NEXT 


x: REM E Deer 


in line 280) and those three Os 


running backward and forward 
by two deer. Without the FOR- 


250 DATA 16,32,64 


,224, 127,63,50 


are transferred to the beginning 




,82 




of the DATA line for that Bird, 


would make only one visit (there 


255 FOR x-0 TO 7: 




of the pixel square. Quite a dif- 


and back). With an increased 
number in line 3020 (0 TO 


USR "tT+x.y: NEXT 


x: REM H 


ference in level. A judicious 


500?) they would continue that 


260 DATA 4,72,223 


,62,8,0,0,0 


sprinkling of H&J [in graphic 




265 FOR m=0 TO 7: 


READ y. POKE 


mode, of coursel along line 
1505 gives two lei/els of bird: 


be tired long before they would. 


USR "X"+x, y \ NEXT 


x: REM I 


1505 LETH$^"HJ JHJHJH 


Finally— 


270 DATA a, 4,2,7, 


254,252,76,74 


JJH-andsoon".lnline1B20, 


275 FOR x=0 TO ?: 


READ y\ POKE 


the PRINT-AT line, we can now 
print three rows of HS or JS or 


At the end of the program the 


USR " 1 i"+x,y: NEXT 


x: REM J 


both (see line 1510 LET JS = 
HS ) and produce a flock of birds. 


graphics used are displayed on 


2S0 DATA 0,0,0,4, 
285 FOR x=0 TO 7! 


72,223,62,8 
READ y: POKE 



:dbylines1525and1530. 



More wildlife 



tring slicing method, t 






kinds of stitch -forth! 
lis sampler as useful. 



USR »n" + x,y: NEXT x: REM K 
290 DATA 0,0,2,7,126,252,76,14. 
295 FOR x=0 TO 71 READ y. POKE 

USR "£"**, y. NEXT X! REM P 
300 DATA 224,16,32,124,126,63,. 

5,4 



305 FOR 



7: READ y. POKE 

:t x: rem s 

,,255,255,255, 126 



REM *********************** 



♦GRAPHICS mm 



30 REM This POKE makes the key 
s BEEP ************************* 
40 POKE 23609,255: BORDER 5: I 
NK 

200 REM Making single graphics 
******************************** 

205 FOR *=0 TO 71 READ y. POKE 
USR "fi'+x.y: NEXT x: REM A Crjcke 



el 



. 4B, 225, 49,62,, 



410 DATA 16,96,224,160,32,: 
,36' 

415 FOR x=0 TO 7: READ y. I 
USR :, £"+x,y: NEXT x: REM O 

420 DATA 61,63,63,55,51,51, 



425 FOR x=0 TO 7\ READ y\ POKE 
USR ■l_"*-x,y: NEXT x: REM L 

430 DATA 0,0,0,0,0,31,63,127 

435 FOR «=0 TO 7: READ y\ POKE 
USR "tT+x.y: NEXT x\ REM M 

440 DATA 0,0,112,240,248,252,25 
2,252 

445 FOR x=0 TO 7: READ yi POKE 
USR '^i"*x,y. NEXT x: REM N 

450 DATA 255,255,255,255,113,96 
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455 FOR x=0 TO 7: READ y: I 
USR "fi**X,y: NEXT x: REM 

460 DATA 222,206,199,195,1' 
B, 192, 192 

465 FOR x-0 TO 7: READ y: f 
USR "fl"*x,y: NEXT x! REM Q 

470 DATA 120,255,31,15,24," 
,24 



475 FOR x=0 TO 7 


READ y: POKE 


USR -B"*«,y: NEXT 


x : REM R 


4B0 DATA 0,224,240,248,100,82, 


1,208 




485 FOR *=0 TO 7 


READ yi POKE 


UBR "E'+x,/! NEXT 


X : REM T 


490 DATA 24,60, fit 


, 126, 126, 126, 


55,255 




495 FOR x=0 TO 7 


READ y: POKE 


USR "li"+x,y: NEXT 


«: REM U 


500 DATA 255,255 


255,255, 126,6 


,24, 24 




505 GO SUB 5000 





19,22! »£" 
NT AT 20,5; " I M" 
NT AT 21,53 "tlU" ! 
21 , 21 i "E" 
I FOR-NEXT loops 



1010 FOR a-0 TO l: FOR b=0 TO 1: 

FOR c»=J2l TO 31 
1015 LET A*="£": PRINT AT 12,clA 
*: PAUSE 31 PRINT AT 12, CI" ": N 
EXT c: PAUSE 20: NEXT b 
1020 FOR e=0 TO 1: LET B*="B": F 
OR +=31 TO STEP -11 PRINT AT 1 
4,-f;BS: PAUSE 2! PRINT AT 14, f;" 

" : NEXT + 
1025 PAUSE 20! NEXT e: PAUSE 20: 



NEX" 



ng *****#*#*#** 



*************** 



613 



a a 

INT AT 



E S E £ E & 

620 PRINT AT 1 

e e e a 

625 PRINT AT . 

E E S E 5 

630 PRINT AT 
I 'S E 

635 PRINT AT 



645 PRINT AT 

e sua 

650 PRINT AT 20 



NK 4 i " D i 

s a* 

NK 4; "a 

a a" 

a a 



655 PRINT AT 21 . 

a. a e a e a e Ea" 

800 REM Now place the still anl 
mals *************************** 
805 REM Some with one graphic 1 

******************************** 



B15 PRINT AT 1( 
I-JAT 16,27j"E" 
820 PRINT AT i: 



AT 17,23; 
J AT 18,24 



1515 FOR x=0 TO 50 
1520 PRINT AT 3,0! 
,0! J*! AT 2,0! J*<3 V 



1545 PR! 
1550 PR 



2003 REM Slicing in 2 directions 
******************************** 
2005 LET B*=" 



2015 LET 1=LEN B< 
2020 FOR i=2 TO 
2025 PRINT AT 12 



2045 LET 1=LEN C5 

2050 FOR j=(l-l) TO 2 STEP -1 

2055 PRINT AT 14 , 3; C* t < 1 - j ) TO 1 
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2500 REM Slicing *************** 
******************************** 
2505 FOR x=0 TO 173 
2510 LET D*=" 

2515 FOR x=0 TO 178 
2520 PRINT AT 9,0|D* 
2525 LET D*=E*<2 TO )+D*<l) 

2535 PRINT AT 9,0! " 



3015 LET b*=" 

EE " 
3020 FOR x=0 TO 4 
3025 LET 1=LEN al 
3030 FOR i-B TO f 1 



3040 NEXT i 

3045 FOR j=ll-U TO STEP -1 

3050 PRINT AT 14 , 0i b* ( I 1 - j ) TO 1 

3055 NEXT j 

3060 NEXT x: CLS : PAUSE 20 

4000 REM Finishing statement *** 

******************************** 

4010 PRINT AT 10,lS"These are th 



■ gra 



ogr*u 



4020 


PRINT 


AT 


20, 11 


"H fi G B. 


e a 


T J K P SB 


a" 








4030 


PRINT 


AT 


17, 5; 


"F LM T" 




4040 


PRINT 


AT 


18,5; 


'E Ufl U n 




•4045 


STOP 










5000 


REM Maiiir 


g USF 


graphics**** 


******************************** 


5015 


PRINT 
NG" 


AT 


5,8! 


-1 




5020 


PRINT 


AT 


6,85 


"2631 




USR 












5025 


PRINT 


AT 


7,8! 


'8426842 




GRAPHICS' 










5030 


PRINT 


AT 


8,8; 


•H 


224" 


5035 


PRINT 


AT 


9,81 


■ 


16" 


5040 


PRINT 


AT 


10,8; 


■ 


32" 


5045 


PRINT 


AT 


11,8) 


* HH^al 


1Z4" 


5050 


PRINT 


AT 


12,8; 


■ i^Hia 


126" 


5055 


PRINT 


AT 


13,8 




b3" 


5060 


PRINT 


AT 


14,8 




11 5 " 


5065 


PRINT 


AT 


15,8 


■ 


4" 


5070 


LET « 


=64 


FDR 


y=48 TO 


12 8 


TEP 


3 










5075 


PLOT 


K F y 


DRAI 


64,0; NEXT y 


5080 


FOR x 


=64 


TO 128 STEP 8 


LET 



5385 PLOT x,y m . DRAW 0,64: NEXT X 

5090 PRINT AT 17,0; "EE E E EE 

E EE E E PPPP " 

5095 PRINT AT 20,0! "Press P for 

next program": PAUSE 5000 

5100 IF INKEYS="P" OR INKEY*="p 

" THEN CLS : GO TO 5500 

5500 REM Board plotting position 



5510 PRINT AT 0,0; "0123456789 8< 

on to 31 " 

5515 PRINT AT 1,0;"1 

5520 PRINT AT 2,0;"2 second 

5525 PRINT AT 3,0; "3 

5530 PRINT AT 4,01"4 

5535 PRINT AT 5,01*5 SCREEN 

X,Y POSITIONS " 

5540 PRINT AT 6,0;"6 

5545 PRINT AT 7,0!"7 

5550 PRINT AT B,0i "8 

5555 PRINT AT 9,0;"? 

5560 PRINT AT 10,0;"10 

5565 PRINT AT 11,01 "11 

5570 PRINT AT 12 , 0i " 12. . < - -f i rst 

5575 PRINT AT 13,0;"13 

5580 PRINT AT 14,0; "14 

5585 PRINT AT 15,0;"15 yoLi c 

an position " 

55?0 PRINT AT 16,0;"16 anyth 

ing anywhere " 

5595 PRINT AT 17,0{"17 

5600 PRINT AT 18,0! "18 

5605 PRINT AT 19,01"19 

5610 PRINT AT 20,0;"20 

5615 PRINT AT 21 , 0| "21 . . press M 
for main program....": PAUSE 50G 


5620 IF INKEY*="M" OR INKEY*="m' 
THEN CLS ! RETURN 

5630 GO TO 5620 



®ntuersittj> ^oftiuare 


UNISTAT 

STATISTICAL PACKAGE 

■, .„ ; /;; Bf j; v ;, „;, h ^ 

';' '' " " aasasK ' i:= 


UNIMAX 


ALSDAVAILABLE FDR4BK SPECTRUM 

INTRODUCTION TO i;r()N(A1ICSSET:£25 

ECONOMIl i.l i",IM!'HV.l'.".':' ■ Him.loFII.R: W.'lS 


To UNISOFT LIMITED 

(llept. AI29STTI II KSMUIJ I.HIMK1WIH.IP. 


COMMODORE 64, BBC-B, 48K SPECTRUM 

Uggyg * l?omprchi:nsiM' us*r manual * full data hiiiuilin- l.i, iliti^ di-pi.r. . j.riiii. ^iiujie. vive. load) QgSga 
^^P * All results tan be primed out * ^^V 



It's easy to complain 

about advertisements. 

But which ones? 



senifiits appear in print, on posters or 
tained in the British Code of 



Every week millions of ad' 
in the cinema. 

Most of them comply with the rules 
Advertising Practice. 

But some of them break the rules and warrant your complaints. 

If you're not sure about which ones they are, however, drop us a line 
and we'll send you an abridged copy of the Advertising Code. 

Then, if an advertisement bothers you, you'll be justified in g 
bothering us. m 

The Advertising Standards Authority. W 
If an advertisement is wrong, were here to put it right. 

ASA Ltd, Dent2Brook House. Tomngton Place. London WC1E7HN 

Thissiwvi, J,:!i,,u^iiHi.jiii!,r.-..-.ii|iii>V'-, rL;:i;J.u\l-.i.iJvi'fiisiiig, 
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Conversion tips 

A guide to ZX81 /Spectrum program conversions 
from David Nowotnik. 



The versions of BASIC offered 


trum Isee Table 1). 




but you will have to find som 




appear in the tables 


by the two ZX computers are 


There are quite a lo 








and such as POKE 








lion and file I/O commands. 


USR "; 


' . , . . on the Spec- 








The command PLOT appea 




icates User Defined 






A list Of 










these appears in Tab 


4. The 














bewarel Another tip; PEEK ar 




omit this and use a 


SCROLL and UNPLOT, and 


and functions fo- Al- 




POKE should be used with ce 






























ZX81 programs to the Spec- 


and sound can be o 




changed. Some of thos 







ZX81 


Spectrum 


Comments 






SCROLL RANDOMISE USH 3582 

LETt-USR 3582 
PLOT Y,X PRINT AT 21 -Y/2.X/2, 


3S5 


oprlal 


.'SEci'Sbt «„«,. 


UNPLOT Y,X PRINT 


AT 21 -Y/2.X/2; 


b^-VS 


Sm. 


"•*"••■ 


T«bh t ZX81 toSpact 


um •*■»■'"*•* 








Spectrum 


zxai 






Comments 


BIN 

eg LET y = BIN 
10O1O1O1 


LETy-ioBofti 

Conversion N 
10010101 = 

128 B4 32 1 
Add these nu 


decimal: 
149 

6 8 4 2 1 


when 


BIN allows the represen- 

binary. On the ZXB1 use the 

beware; BIN is often 
used with User Defined 
Graphics, which are not 
available on the ZX81. 


READ/DATA 
DATA 50,60 


LET 

LETX = 50 
LET Y = 6Q 






READ and DATA are 

information in a program. Use 
LET instead. 


DEF FN and FN 
eg DEFa(«) = SQR X 
LETt = FN a(il 


LETX$="SaR X" 

LET X = l 

LET T= VALXS 




The defined function can 
appear in a string. Use 
the keyword tor built-in 
functions leg SQR). The 
equivalent of FN may need 2 


PLOT 


no equivalent 








BgLETa = SCREENS 


X.y LET A = PEEK|PEEK 16396 
+ 256-PEEK 16337 + 1 +Y 


+ 33* 


display file. Note — this 
RAM peck is fitted. 



■PROGRAMMING TIPS! 



ZX81 


Spec 


rum 




Comment, 






1 FRAMES 

POKE 16436,255 

POKE 16437,255 

LETT = I65535-PEEK 
16436-256*PEEK 16437 

;'50 


POKE 23672, OlPOKE 236 

LET t = (PEEK 23672 + 256 
PEEK 236731/50 

For times greater than 10 

23674 as well. 


3,0 which accurately 
'clock'. The varis 


III" 




cnly be used lor 










Converts the firs 


line of a 




POKE 16510,0 


POKE 23756,0 

(As the start of BASIC can 


program to line n 


SS'S 




3 RAMTOP 

POKE 16388. X-256-INT 

(X/2 561 

POKE 16389. INT IX/2561 


CLEAR x 




top of RAM star 


ng et address 




T.bk> 3 GM.nl /»MWO»»»A»> 


hint,. 






code etc. 
















BEEP 

BORDER 

BRIGHT 

CAT 

CIRCLE 

CLOSE 

DATA 

DEFFN 

DRAW 

ERASE 

FLASH 


FORMAT 

INVERSE 

MERGE 

MOVE 

OPEN 

OUT 

PAPEH 

READ 

RESTORE 

VERIFY 


BIN 

FN 

IN 

OVER 

POINT 

SCREENS 










1 r»6/» a Spectrum fii 


ch'ons nor tvailibkt on Ihe ZX81. 






System variables Conversion Table. 


LASTK 
MARGIN 


6421 
6424 


23560 


Variable ZX81/ 

T/S1000 


Spectrum/ 
TS2068 


MEM 
MEMGOTT 


6416 
6477 


23656 
23698 








NXTLIN 


6425 


23637 








OLDPCC 


6427 


23662 










































23678 


























5PSN 


6441 










SPOSN(Byte2l 


6442 




















23641 






































TADDR 












VARS 


6400 










VEHSN 




No Equivalent 


FRAMES 


6436 


23672 


XPTR 
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ZX COMPUTING 




Lineage: 40p per word E3 — /^#T\ 01 A'VT HCQQ 
Semidisplay:£9.00pe|-singlecolumncentirTietre.Ring [ ■ \ \J 1 ~ HOI UDSJ9 

for information on series bookings/discounts. \ l» / ~ j 

V W J Send your requirements to: 

All advertisements In this section must be prepaid 1^^ JASON INSKIP 

Advertisement rm S an a conditions ASP Ltd., 1 Golden Square, 

pnnted on th t „.,,.■,, .......ni ,,,, , L ,,.j , :ara ,i d hi E an revest). London W1 




SOFTWARE GAMES 




NITE OWL 

SPECTRUM SOFTWARE — presents 

WORLD CUP '86 (UK) £3.50 

and giiirtc tbnm Ihrni.rjh !c :hf- "insls ■< l.^.\co and win the 

famous trophy. It's not so easyl 

Or why not join the 

NITE OWN TAPE EXCHANGE CLUB? 

Cheques/POs to: 

NITE OWL 

6 Hampton Road, Blackpool FY4 1JB 




CURRENT SPECTRUM PROGRAMS 

Tradevvlnd (£5 Cassette, £9.50 Microdrive) 

Jersey Quest (£5 Cassette. £9.50 Microdrive) 
Morse Tutor (£4 Cassette, £8.50 Microdrive) 

Morse Tutor tor the QL £8.50* 

W O Software, Hilltop, St Mar/. Jersey, CI. 




WE35U5ZM 



LOOKS Al 

,i:?n%* 
eichange 

t!!Ci!V'!= "OP d\) iiBM'jn 



SPECTRUM REPAIRS 



MAKE HOME VIDEOS 
with Youn own tunes: 



Pools Prediction 



Rom best, Dept. ZX.. 



l.'ll' J ll 1 



«£ KILSOFT TJ | p ; 





POST £4.95 FREE 



■'-•" •'■"■■ 



W D SOFTWARE 



X GUARANTEED (ZC] 



COMPUTER SOFTWARE 
BUSINESS AND GAMES 
FOR MOST COMPUTERS 



SPECTRUM 

RGB 

OUTPUT 



. ■"" 



affj. A1 C19.S9lnc. p&p 



DON'T LEAVE IT TO 
CHANCE. GIVE 

SPECTRUM SPEEDY-LOAD: YOU R BUSINESS A 

BOOST. 



f°p° command crSie ilh -^ Advertise in ZX. 

inly WsTrVe' Mk ' i 
Mfi.r.51 Mlm/Crt! Rusk ~r-„r. 



Phone Jason o 

01-437 0699 for 

details. 



©J' 
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ZX COMPUTING 

CLASSIFIED ADVERTISEMENT — ORDER FORM 




m 



Nam«(Wr'Mn.'UlH'Ml) 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



I 



If you have something to sell now's your chance! Don't turn the page — turn to us! 

Rates ot charge: 40p per word per issue (minimum of 1 R words). Please state classification I 

and post to: ZX COMPUTING, CLASSIFIED DEPARTMENT, . 

1 GOLDEN SQUARE, LONDON W1. « 



^7>V 



@®Ca[PQ!MEXg! 

ZX Computing Subscriptions, 

Infonat Ltd, 

Times House, 

1 79 The Marlowes, 

Hemel Hempstead, 

Harts HP1 IBB. 



SUBSCRIPTION 
RATES 

(tick D as 
appropriate) 



13.50 fors 
! 15.00 fors 



Subscription Order Form 



I I H I II I I I I 



NAME | Mr/Mrs/Mi 5! 



□ 

D 
D 
□ 



In space no one can hear you scream. 




SPECTRUM 48K-CBM64 



iia-;:>iw:m;w. 



YOUR SPECTRUM 




Outperforms any Spectrum interface 



* A vanety ol interfaces including Rom cartridges, two 9-way D plugs 
for standard loysticte, PLUS full expansion bus at rear 

* Compatible with Kempston and Proteh protocols. 

* Worts with latest Quickshot Mk II auto rapid-fire joysteks! 
•I- Choice of Rom cartridge or tape cassette software. 

■ ' Instant program loading with cartridge software, 

* Built-in power safety device - unique to Ram Turbo. 

* Full one year guarantee. 

* Immediate availability - 24 Hr despatch on receipt of 
PO./ credit cart) details (chequ 

* Incredible value -only £22.95. 



Or call our credit card hot line or 
Visa welcome). 

Ram Electronics (Fleet) Ltd, 105 Fleet Road. Reel, Hampshire 
GU138PA. 



Spectrum Turbo Interface^) at £22.95 

+ f] p+ ploueiseas orders £3 p+p) 

Quickshot II Joystickls) at £9.95 

(Only *tien purchased wthTurto- normally i].?.'j r j ■ il 
I enclose cheque/p'-.i'L^ii HxteroFctarBe v-v u.-'^'Visaforf 

a 

Name 




J : 



_E_ 




Trade and export enquiries welcome. 



